| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1319 人关注过本帖
标题:查询结果不能看“下一个”
只看楼主 加入收藏
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

你取消数据环境,取消数据捆绑,这样做看是不是达到你的要求:

(1)新建一个表单,添加你需要的标签、文本框、命令按钮组等。还要添加一个过程TEXTREFRESH。假设其中TEXT7是你要输入查询的内容。

(2)THISFORM.INIT里写
PUBLIC MM
CLOSE ALL
IF FILE("你的表.DBF")
USE 你的表.DBF
ELSE
*CREATE TABLE 你的表 (你的字段名......
ENDIF
THISFORM.TEXT1.INPUTMASK="XXXXXXXXX" &&根据你的第一个字段的要求设定
*其他文本框,包括TEXT7在内的INPUMASK都如此设定
THISFORM.TEXTREFRESH

(3)THISFORM.TEXTREFRESH里写
THISFORM.TEXT1.VALUE=第一个字段
THISFORM.TEXT2.VALUE=第二个字段
*其他需要显示其内容的字段赋值给对应的文本框...............

(4)命令按钮组COMMANDGROUP1.CLICK里写
DO CASE
CASE THIS.VALUE=1 &&第一个
GO TOP
CASE THIS.VALUE=2 &&上一个
SKIP-1
IF BOF()
GO TOP
ENDIF
CASE THIS.VALUE=3 &&下一个
SKIP
IF EOF()
GO BOTTOM
ENDIF
CASE THIS.VALUE=4 &&最后一个
GO BOTTOM
CASE THIS.VALUE=5 &&查询
MM=ALLTRIM(THISFORM.TEXT7.VALUE)
IF EMPTY(MM)
SET FILTER TO
ELSE
SET FILTER TO MM$学号
ENDIF
GO TOP
CASE THIS.VALUE=6 &&结束
THISFORM.RELEASE
ENDCASE
THISFORM.TEXTREFRESH


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-09-01 17:20
玲子
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-8-24
收藏
得分:0 

好详细 谢谢大家


2006-09-01 18:29
快速回复:查询结果不能看“下一个”
数据加载中...
 
   



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

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