前进。后退，程序。怎么写？？？vfp

前翻
if !bof()
skip -1
endif
n=RECNO()
GO top
s=RECNO()
IF n=s
thisform.command1.enabled=.f. 前翻按钮变乌，如果到了最前条记录

ENDIF
GO n

后翻
if !eof()
skip
endif
n=RECNO()
GO bottom
s=RECNO()
IF n=s
thisform.command1.enabled=.f. 后翻按钮变乌，如果到了最后条记录
ENDIF
GO n

很简单就是
skip
和
skip-1
的运用