我是想通过一个表单从总表中筛选出符合条件的数据，并生成一个表。

查了一下原因，主要是因为“专业名称”用到了组合框控件，数据来自一个自由表，但不知如何解决？另外想问下组合查询的代码如何写（给思路就可以了）。

表单中［确定］按钮的代码为：
set talk off
cFileName=getfile("dbf")
sele 1
use &cFileName  excl
qn="全年"
km1=alltrim(thisform.text1.value)    && 文件名
km2=alltrim()   && 专业名称
km3=alltrim()   && 毕业时间
km4=alltrim()   && 所属季节
sele 1
if km4<>' '.and. km3<>' '
   if  km4=qn
     copy to   就业信息\&km1 for  zymc=km2.and.substr(byrq,1,4)=km3
   else
      copy to  就业信息\&km1 for  zymc=km2.and.substr(byrq,1,4)=km3.and.ssjj=km4
   endif
else      
    copy to    就业信息\&km1 for  zymc=km2
endif
  use
thisform.release

此对话框不影响查询结果。

[ 本帖最后由 liuhaijun 于 2010-4-13 21:28 编辑 ]

一般有这样几种情况不能访问选定表：
1.表已被打开，要求重新打开（其中有一个要求是独占方式打开）
2.另一个可能的问题，就是当前工作区的问题

组合查询问题：
1.查询语句中使用预先设置好的变量，使用前，将控件中的值赋给变量，然后执行查询语句
2.可以根据控件中的数据动态生成一个SQL语句或VFP的查询命令（字符串，用宏执行之）

表.字段

感谢版主cnfarer的回答，再帮我看一下代码。我是按3楼方法设的，否则也得不到表中的专业名称。

[ 本帖最后由 liuhaijun 于 2010-4-13 21:17 编辑 ]

表单中［确定］按钮的代码为：
set talk off
cFileName=getfile("dbf")
sele 0  && 1改为0
use &cFileName  excl
qn="全年"
km1=alltrim(thisform.text1.value)    && 文件名
km2=alltrim()   && 专业名称
km3=alltrim()   && 毕业时间
km4=alltrim()   && 所属季节
*sele 1  && 这句多余~
if km4<>' '.and. km3<>' '
   if  km4=qn
     copy to   就业信息\&km1 for  zymc=km2.and.substr(byrq,1,4)=km3
   else
      copy to  就业信息\&km1 for  zymc=km2.and.substr(byrq,1,4)=km3.and.ssjj=km4
   endif
else      
    copy to    就业信息\&km1 for  zymc=km2
endif
  use
thisform.release

代码太冗长, 9句代码或12句代码就可以了~~

执行表单之前的主程序中，加上一句话，再试试。其他的都不用改动。
即：  store space(1) to cFileName,km1,km2,km3,km4
      do form 这个表单


[ 本帖最后由 qingfameng 于 2010-4-13 23:41 编辑 ]

不需要再增加代码的, 楼主那段代码出错的原因, 主要是在 thisform.release 前, 就无意中将那个combo的自由表关闭了, 所以才会出现那样的提示~~~我5楼和6楼的思路 应该是行得通的~~~事实上, 我也实际测试过, 无误~~~

\&什么意思 谢谢

问一下 如果是把这些数据复制到数据库中的表应该怎么写 谢谢