利用表单查询使结果在另一个表单上显示，为什么筛选不出记录？

利用表单查询使结果在另一个表单上显示，为什么筛选不出记录？

SELECT xcjg

bmh1=ALLTRIM(thisform.pageframe1.page1.text1.value)

bmh2=ALLTRIM(thisform.pageframe1.page1.combo1.value)

DO CASE

CASE thisform.pageframe1.page1.optiongroup1.Value=1

IF LEN(ALLTRIM(thisform.pageframe1.page1.text1.value))=0

=MESSAGEBOX("对不起！输入不能为空，请重新输入",1+48+1,"输入为空提示对话框")=1

thisform.pageframe1.page1.text1.setfocus

ELSE

SET FILTER TO &分类编码号==bmh1

if not found()

=messagebox("无此记录",5+48+0,"信息提示对话框")=4

ELSE

DO FORM C:\sd\df\xcjg

ENDIF

ENDIF

CASE thisform.pageframe1.page1.optiongroup1.Value=2

DO FORM C:\sd\df\xcjg

ENDCASE