问题如上传的图，当点“精确查找”按钮时提示程序错误，错误为“函数参数的值、类型或数目无效”，各位大虾，怎么解决这问题？
代码：
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

红字的有错吗？
谢谢