VFP的GRID中行记录上移或下移一行

说明：当前数据表已经建立了索引文件的，先关闭索引文件，否则影响执行效果。 下面的代码是在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