虎哥你用的不是IIF函数来作为判断条件吧?也不知道是不是版本的缘故,反正做好了10多个属性都能实现正确的查询,再多添加一个条件系统都会提示SELECT-SQL语句过长而出现错误.

建议你先单独使用SELECT-SQL进行查询，结果放在一个表中(DBF表或临时表都行)，然后再对新表进行处理。

cExpr=".T."
*对第一个文本框设定条件
IF !EMPTY(THISFORM.TEXT1.VALUE)
cExpr=cExpr+".AND.S_REC1="+ALLTRIM(THISFORM.TEXT1.VALUE)
ENDIF
*对第二,......第四十个文本框都依此进行处理,所不同的是下次写的时候红字部分都要改变而已
*最后进行查询,采用如下命令
SELECT * FROM 表 WHERE &cExpr

需要注意的是，上述查询是假设:字段S_REC1是数值型,TEXT1.VALUE是字符型

若字段S_REC1为数值型,而TEXT1.VALUE为数值型,则修改为
cExpr=cExpr+".AND.S_REC1="+ALLTRIM(STR(THISFORM.TEXT1.VALUE),16,4) &&16,4自己确定

若字段S_REC1为字符型,而TEXT1.VALUE为字符型,则修改为
cExpr=cExpr+".AND.S_REC1='"+ALLTRIM(THISFORM.TEXT1.VALUE)+"'"
或者
cExpr=cExpr+".AND.'"+ALLTRIM(THISFORM.TEXT1.VALUE)+"'$S_REC1"

其他情况你自己思考

非常感谢虎哥的耐心指导,多条件查询问题我终于解决了,终于也有了一点点成功的喜悦.不过在碰到数据表字段是逻辑值和表单中的复选框控件也是逻辑值时,我没能很好的用上述方法解决,我的方法是是用IIF()函数解决的:
比如IIF(THISFORM.yindian.VALUE=.T.,银点=THISFORM.yindian.VALUE,THISFORM.yindian.VALUE=.F.)
用这些IIF()函数在SELECT-SQL语句中与&cExpr条件相与而得到最终的查询!不知道虎哥对逻辑值字段是否有什么高招?请赐教.

添加条件里面的代码是
IF EMPTY(THISFORM.COMBo1.VALUE) OR EMPTY(THISFORM.COMBO2.VALUE) OR EMPTY(THISFORM.TEXT1.VALUE)
MESSAGEBOX("输入条件不能为空",16,"错误")
ELSE

IF EMPTY(thisform.edit1.value)
thisform.edit1.Value=" "+thisform.combo1.Value+thisform.combo2.Value+"'"+ALLTRIM(thisform.text1.Value)+"' "
else
thisform.edit1.Value=thisform.edit1.Value+" and "+thisform.combo1.Value+thisform.combo2.Value+"'"+ALLTRIM(thisform.text1.Value)+"'"
ENDIF
ENDIF
这是很久以前给一个朋友做的SIM卡里的查询代码,其中COMBO1里面是查询的条件,例如里面包括姓名,号码等,COMBO2里面是= < > LINK等,TEXT里面输入条件,然后再点添加条件即可,运行到今天没什么毛病,反正我朋友他们没发现什么毛病你可以参考一下,就上面几条命令就实现了多条件查询

忘记说明了,还要一个EDIT控件放查询条件,当然,你自己决定是否要在表单上显示,再有,还要有一个查询按钮,里面的代码是
LR=" "+ALLTRIM(thisform.edit1.Value)+" "

SELECT * FROM REPAIR(数据表名称) WHERE &LR(EDIT中的查询条件) INTO CURSOR crepair(临时表名) ORDER BY REPAIR.DATE

有人能帮帮忙吗我想在做好的excel中填入vfp数据库数据，不是全部导入的比果按部门填入数据怎做啊