标题谈谈Seek查找的连续性

　　首先Seek查找到一个符合条件的记录，作上删除标志，再由条件Set filt to.not.dele()限制第二次查找不重蹈复辙，从而实现连续查找(查找之后再恢复原状)。
　　例：set exac off
　　store .f. to done
　　use gzk inde gzxz
　　clea
　　set filt to .not. dele()
　　@ 10，0
　　acce ‘请输入工资性质编码'to fid
　　@ 20，0
　　do whil .t.
　　seek ‘& fid'
　　if found()
　　store .t. to done
　　？ repl('_'，80)
　　set colo to/g
　　disp off
　　set colo to
　　wait ‘按任一键继续……'
　　dele
　　else
　　？ repl('_')，80)
　　？ ‘库中(已)无符合条件之记录！'
　　exit
　　endi
　　enddo
　　if done
　　set filt to
　　reca all
　　endi
　　clos all
　　return
　　程序的缺陷是：关键字的比较必须相同，不能用子串检测合法记录，并不完善，仅起抛砖引玉之用。