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

利用表单查询使结果在另一个表单上显示，为什么筛选不出记录？
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