| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4114 人关注过本帖
标题:关于表单中“上一条”“下一条”的功能问题
只看楼主 加入收藏
花花公子
Rank: 4
等 级:贵宾
威 望:10
帖 子:609
专家分:0
注 册:2007-6-7
收藏
得分:0 
是不是想实现 移动指针上一条、下一条记录???(我前面有个是说错了的)
当前记录一开始是在第一条的.

当Thisform.text1.ControlSource="表名.字段1"

select 表名
if thisform.text1.value==dmmin
messagebox("已到数据首部",48,"移动记录")
else
skip 1
endif
thisform.refresh

[glow=150,blue,2] 该珍惜的,好好把握;该舍去的,不再留恋; 该执著的,永不怨悔;该面对的,绝不逃避。[/glow]
2007-08-24 16:26
花花公子
Rank: 4
等 级:贵宾
威 望:10
帖 子:609
专家分:0
注 册:2007-6-7
收藏
得分:0 
你QQ号码告诉我,我发个9.0的帮助给你吧

[glow=150,blue,2] 该珍惜的,好好把握;该舍去的,不再留恋; 该执著的,永不怨悔;该面对的,绝不逃避。[/glow]
2007-08-24 16:28
chunhe
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2007-8-15
收藏
得分:0 

谢谢,刚在论坛里找到VF9.0的帮助文件中文版的了,晚上回去看看。
你的代码:
select 表名
if thisform.text1.value==dmmin
messagebox("已到数据首部",48,"移动记录")
else
skip 1
endif
thisform.refresh

问题是我没有把需要比较的字段放在表单上,因为我不希望显示“代码”字段,所以thisform.text1.value就不能用,需要引用表中这个字段的当前值(回去试试,再没解决办法,只能把它放在表单上了。)

2007-08-24 16:35
花花公子
Rank: 4
等 级:贵宾
威 望:10
帖 子:609
专家分:0
注 册:2007-6-7
收藏
得分:0 
问题是我没有把需要比较的字段放在表单上,因为我不希望显示“代码”字段,所以thisform.text1.value就不能用?
可以用啊
你就随便添加个TEXT5 然后Thisform.text5.ControlSource="表名.字段1" 再将TEXT5的enabled 的属性设置为.F.

[glow=150,blue,2] 该珍惜的,好好把握;该舍去的,不再留恋; 该执著的,永不怨悔;该面对的,绝不逃避。[/glow]
2007-08-24 16:39
chunhe
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2007-8-15
收藏
得分:0 

已经把我的表单的设计结构全改了,换种思路试试。

2007-08-27 09:05
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
*上一条
Select 表别名
If Recno()<=1
MessageBox("已经到了第一条记录")
Else
Skip -1
EndIf

*下一条
Select 表别名
If Recno()>=Reccount()
MessageBox("已经到了最后一条记录")
Else
Skip
EndIf

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-08-27 11:36
chunhe
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2007-8-15
收藏
得分:0 
谢谢Tiger5392,一般的表单是这么写的代码,可我的表单是按索引字段排序的,并且追加的新记录的索引字段值很可能不是当前最大的值。所以这么写的代码,移动起来就是到了索引字段值的某一个时其记录号是最大的,就不再往下移动了,显示“已经到了最后一条记录”,其实后面还有好多记录而看不到;移动到了索引字段值是排在中间大小的某一个而其记录号是最小的时,就不再往上移动了,显示"已经到了第一条记录",所以,会有好多记录都看不了。
你有解决的方法吗?我都快崩溃了。
2007-08-27 12:16
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
不要崩溃。
*上一条
Skip -1
If Bof()
MessageBox('已经到了第一条')
Go Top
EndIf
*下一条
Skip
If Eof()
MessageBox('已经到了最后一条记录')
Go Bottom
EndIf

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-08-27 17:13
chunhe
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2007-8-15
收藏
得分:0 

谢谢!回家试试

2007-08-28 09:56
快速回复:关于表单中“上一条”“下一条”的功能问题
数据加载中...
 
   



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

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