在grid中用命令按钮如何实现记录的上移和下移

在grid中用命令按钮如何实现记录的上移和下移???

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

SKIP [nRecords] [IN nWorkArea | cTableAlias]

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


先看看

可能是我写的不清楚,我的意思是在grid中让选中的记录通过命令按钮向上或向下搬动.

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

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

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

大大,我的意思是说搬动记录,不是在grid中移动光标.

这是什么意思啊

"搬动记录"
什么意思?说清楚点

比如在grid中有N条记录,其中有a和b两条记录,a记录在b记录的上面,b记录在a记录的下面,同过按钮如何实现b记录在上面,a记录在下面.

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

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

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

大大,我有两个命令按钮,分别是上移和下移,每次点击按钮,grid里选中的记录都能向上或向下搬动一个记录.