下面是“查询”按钮的CLICK代码
select kh
EXPS=".T."
if not empty(thisform.text1.value)
   EXPS=EXPS+'and;
   "'+alltrim(thisform.text1.value)+'"$编号'
   endif
if not empty(thisform.text2.value)
   EXPS=EXPS+'and;
   "'+alltrim(thisform.text2.value)+'"$姓名'
   endif
   do case
      case thisform.optiongroup1.value=1
      EXPS=EXPS+"and 性别='男'"
      case thisform.optiongroup1.value=2
      EXPS=EXPS+"and 性别='女'"
      endcase
if not empty()
    EXPS=EXPS+'and;
     职务="'+alltrim()+'"'
   endif
if not empty()
    EXPS=EXPS+'and;
    客户类型="'+alltrim()+'"'
   endif
   if !alltrim(EXPS)==".t."
    set filter to &EXPS
    endif
      count to rec
      if rec=0
      messagebox("指定的查询条件没有选中任何客户",48,"信息提示")
      endif     
 go top
 thisform.refresh  
问题是：输入单个条件查询没问题
当输入两个以上条件查询时就提示“语法错误”指在--set filter to &EXPS
 例如输入“编号和姓名”时查询就出错
希望高手帮忙解决

select kh
EXPS=".T."
if not empty(thisform.text1.value)
   EXPS=EXPS+' and "'+alltrim(thisform.text1.value)+'"$编号'
endif
if not empty(thisform.text2.value)
   EXPS=EXPS+' and "'+alltrim(thisform.text2.value)+'"$姓名'
endif
do case
  case thisform.optiongroup1.value=1
    EXPS=EXPS+" and 性别='男'"
  case thisform.optiongroup1.value=2
    EXPS=EXPS+" and 性别='女'"
endcase
if not empty()
    EXPS=EXPS+' and  职务="'+alltrim()+'"'
endif
if not empty()
    EXPS=EXPS+' and 客户类型="'+alltrim()+'"'
endif
if alltrim(EXPS)==".T."
  set filter to
else
  set filter to &EXPS
endif
go top
thisform.refresh

[[it] 本帖最后由 Tiger5392 于 2008-11-29 15:27 编辑 [/it]]

谢谢楼上的
可是还是不行呢
就是编号和姓名不能和其它条件一起输入查询
一查就出错

我把这改了就没问题了
if not empty(thisform.text1.value)
   EXPS=EXPS+'and;
  编号="'+alltrim(thisform.text1.value)+'"'
   endif
if not empty(thisform.text2.value)
   EXPS=EXPS+'and;
  姓名="'+alltrim(thisform.text2.value)+'"'
   endif

学习了，谢谢讨论！