标题:在grid中用命令按钮如何实现记录的上移和下移
只看楼主
thisform
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-4
 问题点数:0 回复次数:17 
在grid中用命令按钮如何实现记录的上移和下移
在grid中用命令按钮如何实现记录的上移和下移???
搜索更多相关主题的帖子: grid 按钮 命令 下移 上移 
2007-05-17 15:20
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
得分:0 

用向前或向后移动表中的记录指针。


SKIP [nRecords] [IN nWorkArea | cTableAlias]

参数
nRecords
指定记录指针要移动的记录数。发出不带 nRecords 的 SKIP 将使记录指针指向下一条记录。如果 nRecords 的结果是一个正数,则记录指针向文件尾移动 nRecords 条记录。如果 nRecords 的结果是一个负数,则记录指针向文件头移动 nRecords 条记录。如果记录指针已指向表的最后一条记录,且执行不带参数的 SKIP 命令,则 RECNO( ) 返回比表中记录数大 1 的值,EOF( ) 返回真(.T.)。如果记录指针已指向表的第一条记录,且执行 SKIP –1 ,则 RECNO( ) 返回 1 ,BOF( ) 返回真(.T.)。


先看看


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-17 15:35
thisform
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-4
得分:0 
可能是我写的不清楚,我的意思是在grid中让选中的记录通过命令按钮向上或向下搬动.
2007-05-17 16:07
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
得分:0 
向下的就加
select 表名
skip 1
thisform.refresh

向上的就加
select 表名
skip -1
thisform.refresh

到了表的开始或末尾的时候判断一下就可以了

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-17 16:11
thisform
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-4
得分:0 
大大,我的意思是说搬动记录,不是在grid中移动光标.
2007-05-17 16:15
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
得分:0 
以下是引用thisform在2007-5-17 15:20:30的发言:
在grid中用命令按钮如何实现记录的上移和下移???

这是什么意思啊


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-17 16:17
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
得分:0 
"搬动记录"
什么意思?说清楚点

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-17 16:18
thisform
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-4
得分:0 
比如在grid中有N条记录,其中有a和b两条记录,a记录在b记录的上面,b记录在a记录的下面,同过按钮如何实现b记录在上面,a记录在下面.
2007-05-17 16:19
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
得分:0 

将位于前面的一条记录移到表的最后头

这样几条简单的命令就可以实现了:

USE 你的表.dbf in 0 excl
sele 你的表
APPEND FROM 你的表 FOR RECNO()=1
dele for RECNO()=1
pack


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-17 16:23
thisform
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-5-4
得分:0 
大大,我有两个命令按钮,分别是上移和下移,每次点击按钮,grid里选中的记录都能向上或向下搬动一个记录.
2007-05-17 16:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-140163-1-1.html




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

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