我要按日期查询,在查询按钮的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

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