我要按日期查询,在查询按钮的click事件输入如下代码(其中zyqkst.zyrq是日期型字段,TEXT文本框属性也是日期型)

select zyqkst
if empty(zyqkst.zyrq)
else
endif
set filter to .t.
locate for alltrim(zyqkst.zyrq)==ctod(alltrim(thisform.text1.value))
if found()
set filter to alltrim(zyqkst.zyrq)==ctod(alltrim(thisform.text1.value))

else
messagebox(" 无此类别的数据!","作业情况数据库")

thisform.text1.setfocus
thisform.text1.value=''
go top
set filter to .f.

endif

thisform.refresh

上面代码中,运行后点查询按钮,提示"函数参数的值\类型或数目无效!",请问上面代码错在哪儿,要怎么改,请指教!

请参考：
首先，Alltrim()是对字符型前后去空格的操作，对日期型数据嘛……
其次，既然thisform.text1.value也是日期型的，那么CTOD（）又作何解？thisform.text1.value=''也就不成立了。

select zyqkst
set filter to
locate for zyrq=thisform.text1.value
if found()
set filter to zyrq=thisform.text1.value
else
messagebox("无此类别的数据!",48,"作业情况数据库")
thisform.text1.setfocus
thisform.text1.value=Date()
go top
set filter to
endif
thisform.refresh

谢谢版主,问题已解决!