再次请教版主一个问题
小弟我设计一个查询表单要将筛选符合条件的数据以表格形式显示出来
我在一本书上找到一段代码修改了一下作为command的click过程
但是运行老是在where &cxtj into cursor lscanshubiao显示
“不能识别的命令谓词”
麻烦请版主指导一下该怎么修改
private cxtj
if empty()or empty()or empty(thisform.text1.value)
wait windows'请输入完整条件!'
else
do case
case alltrim()='给料粒度'
cxtj=alltrim()+''+alltrim()+''+alltrim(thisform.text1.value)
case alltrim()='给料能力'
cxtj=alltrim()+''+alltrim()+''+alltrim(thisform.text1.value)
otherwise
cxtj=alltrim()+''+alltrim()+'"'+alltrim(thisform.text1.value)+'"'
endcase
select*from canshubiao
where &cxtj into cursor lscanshubiao
thisform.grid1.recordsource='lscanshubiao'
thisform.grid1.backcolor=rgb(200,224,248)
endif