.我上面的再修改一下就可以达到你要的功能了

你自己试改一下

谢谢,我自己先试下.

功能都是差不多的
先获取当前记录的RECNO号

要向下移,就在RECNO+2那插入,然后删了当前RECNO()

下班了,你自己试吧

用什么命令在当前记录后插入recno()-1的记录呀,append from只能在最后插入记录呀.

grid控件与a table绑定后，就会按照一定的顺序（物理顺序或者索引顺序）逐行显示表中的记录。
楼主的意思，不能有索引，或者关掉索引。
可以这样搞，试试看
上移
scatter memvar
insert blank before
Gather Memvar
skip
delete
pack
thisform.grid1.refresh
下移
scatter memvar
insert blank
Gather Memvar
skip -1
delete
pack
thisform.grid1.refresh
未经验证，请自己调试。

这样好像有点别扭，首先pack就不好用，grid的数据源要设计好。

哦，对了，一旦pack了，就空白了。
可以设置一下set delete on
退出时
set delete off
pack
你的这种要求就特别扭！