首先要有条件判断记录指针是否到达文件首。
上一条:
if bof() &&判断记录指针是否已经到达记录首位置
go top &&判断已在记录首位置,将记录指针移到记录首位置
else &&否则
skip -1 &&记录指针上移一条
endif
thisform.refresh &&刷新当前表单。
下一次:
if eof()
go bottom
else
skip 1
endif
thisform.refresh
经Visual FoxPro 6.0上机调试,正确不误。
首先要有条件判断记录指针是否到达文件首。
上一条:
if bof() &&判断记录指针是否已经到达记录首位置
go top &&判断已在记录首位置,将记录指针移到记录首位置
else &&否则
skip -1 &&记录指针上移一条
endif
thisform.refresh &&刷新当前表单。
下一次:
if eof()
go bottom
else
skip 1
endif
thisform.refresh
经Visual FoxPro 6.0上机调试,正确不误。希望采纳。