相关代码 |
|
【例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