问题如上传的图，当点“精确查找”按钮时提示程序错误，错误为“函数参数的值、类型或数目无效”，各位大虾，怎么解决这问题？
代码：
LOCAL SearchFilter
SearchFilter=".T."
IF NOT EMPTY(ALLTRIM(THISFORM.text1.Value))
SearchFilter=SearchFilter + "and 部门='" + ALLTRIM(THISFORM.text1.Value)+"'"
ENDIF
IF NOT EMPTY(THISFORM.text2.Value)
SearchFilter=SearchFilter + "and 大箱号='" + THISFORM.text2.Value + "'"
ENDIF
IF NOT EMPTY(ALLTRIM(THISFORM.text3.Value))
SearchFilter=SearchFilter + "and 物品名称='" + ALLTRIM(THISFORM.text3.Value) + "'"
ENDIF
IF NOT EMPTY(ALLTRIM(THISFORM.text4.Value))
SearchFilter=SearchFilter + "and 入库日期=" + ALLTRIM(THISFORM.text4.Value)
ENDIF
SELECT rk
SET FILTER TO
SET FILTER TO &SearchFilter

红字的有错吗？
谢谢

谢谢leeping,可是按照您的提示，还是不行！我把alltrim()去掉了，该“IF NOT EMPTY(ALLTRIM(THISFORM.text4.Value))
SearchFilter=SearchFilter + "and 入库日期=" + ALLTRIM(THISFORM.text4.Value)
ENDIF”是没问题。可是问题出在“SET FILTER TO &SearchFilter”处，错误提示是“函数参数的值、类型或数目无效”，请问这又是什么问题？请帮助！
谢谢

楼上的大侠，按照您的方法，还是出同样的错误！不过还是非常感谢你！