首先要有条件判断记录指针是否到达文件首。
上一条：
if bof() &&判断记录指针是否已经到达记录首位置
go top &&判断已在记录首位置，将记录指针移到记录首位置
else &&否则
skip -1 &&记录指针上移一条
endif
thisform.refresh &&刷新当前表单。
下一次：
if eof()
go bottom
else
skip 1
endif
thisform.refresh
经Visual FoxPro 6.0上机调试，正确不误。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024