5-10.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 15 行

【例5.10】记录指针移动示例。
USE "xsqk.dbf"
?RECNO()                  &&显示当前记录号为1
SKIP 5                     &&记录指针向下移动5条
?RECNO()                  &&显示当前记录号为6
SKIP –2                    &&记录指针向上移动2条
?RECNO()                  &&显示当前记录号为4
GO BOTTOM               &&记录指针移到最后一条记录
?EOF()                     &&显示.F.，说明最后一条记录并不是文件尾
?RECCOUNT()              &&显示共有记录7条
SKIP                       &&记录指针再向下移一条
?EOF()                     &&显示.T.，说明记录指针已到文件尾
?RECNO()                  &&显示当前记录号为8
USE