| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 1134 人关注过本帖
标题:请教关于含有逻辑删除数据的表,如何实现“上一条”“下一条”代码?
取消只看楼主 加入收藏
ffyy
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2011-12-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
请教关于含有逻辑删除数据的表,如何实现“上一条”“下一条”代码?
我的“上一条”代码是
If Bof()
    Messagebox("已经是第一条纪录!",0,"纪录情况",1500)
    This.Enabled=.F.
Else
    Skip -1
********
    Thisform.Refresh
Endif

“下一条”代码是:
If Eof()
    Messagebox("已经是最后一条纪录!",0,"纪录情况",1500)
    This.Enabled=.F.
Else
    Skip 1
**********
    Thisform.Refresh
Endif

因为表首和表尾都存在逻辑删除数据,结果“下一条”到最后一条记录时,能提示"已经是最后一条纪录!",但“上一条”到了可用的第一条记录后,什么也不会显示(因为没有到物理第一条?)。什么原因呢?怎么解决好啊?
2012-01-30 23:06
ffyy
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2011-12-11
收藏
得分:0 
谢谢TonyDeng、apple0072011!
2012-01-31 18:01
ffyy
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2011-12-11
收藏
得分:0 
终于找到原因了:因为在初始化时运行了count to nRow命令后,指针指向eof()的位置,所以执行“下一条”时总是出现越界的错误。
在执行count to nRow之后,将指针复位,问题便解决。
2012-01-31 18:32
快速回复:请教关于含有逻辑删除数据的表,如何实现“上一条”“下一条”代码?
数据加载中...
 
   



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

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016947 second(s), 10 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved