| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3244 人关注过本帖
标题:利用表单查询使结果在另一个表单上显示,为什么筛选不出记录?
只看楼主 加入收藏
gyyimut
Rank: 2
等 级:论坛游民
帖 子:67
专家分:10
注 册:2013-10-15
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:38 
利用表单查询使结果在另一个表单上显示,为什么筛选不出记录?
利用表单查询使结果在另一个表单上显示,为什么筛选不出记录?
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 编辑 ]
搜索更多相关主题的帖子: 对话框 记录 
2014-08-04 20:12
gyyimut
Rank: 2
等 级:论坛游民
帖 子:67
专家分:10
注 册:2013-10-15
收藏
得分:0 
这是相关图形
2014-08-04 20:15
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
看下帮助文件中FOUND()与什么命令配套使用

坚守VFP最后的阵地
2014-08-04 20:34
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
应传数据表才可帮你看看
2014-08-04 20:49
gyyimut
Rank: 2
等 级:论坛游民
帖 子:67
专家分:10
注 册:2013-10-15
收藏
得分:0 
回复 3 楼 sdta
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”
2014-08-04 20:56
gyyimut
Rank: 2
等 级:论坛游民
帖 子:67
专家分:10
注 册:2013-10-15
收藏
得分:0 
tu
2014-08-04 21:16
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
locate for分类编码号=bmh1    && 查找第一个符合条件的记录
continue                    && 继续查找下一个符合条件的记录

这样抛弃了第一个符合条件的记录?
2014-08-04 21:19
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
SET FILTER TO &分类编码号==bmh1
执行 SET FILTER TO 命令要移动记录指针,如 go top
不能用 if not found(),用 if eof()

[ 本帖最后由 吹水佬 于 2014-8-4 21:23 编辑 ]
2014-08-04 21:21
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
基础不扎实啊

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-08-04 21:36
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
还是认真看一下帮助文件中的相关内容吧

坚守VFP最后的阵地
2014-08-04 21:39
快速回复:利用表单查询使结果在另一个表单上显示,为什么筛选不出记录?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027192 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved