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

这是相关图形

看下帮助文件中FOUND()与什么命令配套使用

应传数据表才可帮你看看

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

locate for分类编码号=bmh1    && 查找第一个符合条件的记录
continue                    && 继续查找下一个符合条件的记录

这样抛弃了第一个符合条件的记录?

SET FILTER TO &分类编码号==bmh1
执行 SET FILTER TO 命令要移动记录指针，如 go top
不能用 if not found()，用 if eof()

[ 本帖最后由 吹水佬 于 2014-8-4 21:23 编辑 ]

基础不扎实啊

还是认真看一下帮助文件中的相关内容吧