利用表单查询使结果在另一个表单上显示，为什么筛选不出记录？
SELECT xcjg
bmh1=ALLTRIM(thisform.pageframe1.page1.text1.value)
bmh2=ALLTRIM(thisform.pageframe1.)
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

qqq.rar (35.7 KB)

[ 本帖最后由 gyyimut 于 2014-8-4 20:22 编辑 ]

这是相关图形

use xcjg
SELECT xcjg
bmh1=ALLTRIM(thisform.pageframe1.page1.text1.value)
bmh2=ALLTRIM(thisform.pageframe1.)
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
                  locate for分类编码号=bmh1
                  continue
                  if not found()
                     =messagebox("无此记录",5+48+0,"信息提示对话框")=4
                  ELSE
                     DO FORM C:\sd\df\xcjg                  
                  ENDIF
         ENDIF                       
   CASE  thisform.pageframe1.page1.optiongroup1.Value=2
         locate for分类编码号=bmh2
         continue
          DO FORM C:\sd\df\xcjg                  
   ENDCASE
use
运行还是不行，提示“table is in use,the table may already oppend exclusiveiy”

tu

首先感谢您！我觉得问题可能出现在   DO FORM C:\sd\df\xcjg    这一句，因为无论是采用set filter to 还是采用locate for 语句，在程序运行时这两句均未报错。最后一句 DO FORM C:\sd\df\xcjg  打开表单，打开以后该表单总是显示第一条记录（即指针总是指在第一条记录上）。  我现在不知怎么能让新打开的表单显示查询到的记录。        
                    

这个问题已经困扰我好几天了，实在不知该如何解决，希望老师明示。

对，设置了。

老师，删掉controlsource还是筛选不出来，

相关界面，请各位老师指导

老师，这是相关界面，请您帮忙给看看