说明:当前数据表已经建立了索引文件的,先关闭索引文件,否则影响执行效果。 下面的代码是在DFWXJ(清风)的提示下完成的,在此特别感谢DFWXJ(清风)。本代码属于共创作品。因为文章类别管理里没有共创分类,只好用原创了,请DFWXJ(清风)谅解。
IF THIS.VALUE=1 &&行记录上移
YH=RECNO() && 源行
MDH=YH-1 && 目的行
IF MDH<=0
MESSAGEBOX("已经超过第一条记录了")
THISFORM.GRID1.SETFOCUS
RETURN
ELSE
GO MDH
SCATTER TO AA
GO YH
ENDIF
INSERT BLANK
GO YH+1
GATHER FROM AA
DELE FOR RECN()=MDH
PACK
GO YH
ELSE &&行记录下移
YH=RECNO()
MDH=YH+1
GO YH
SCATTER TO AA
IF MDH>RECCOUNT()
MESSAGEBOX("已经到最后一条记录了")
THISFORM.GRID1.SETFOCUS
RETURN
ELSE
GO MDH
ENDIF
MDH=MDH+1
INSERT BLANK
GO MDH
GATHER FROM AA
DELE FOR RECN()=YH
PACK
GO YH
ENDIF
THISFORM.GRID1.RECORDSOURCE="表别名"
THISFORM.GRID1.SETFOCUS
THISFORM.REFRESH