谈谈Seek查找的连续性

黄兴鹏
1992-07-24

        首先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
        程序的缺陷是:关键字的比较必须相同,不能用子串检测合法记录,并不完善,仅起抛砖引玉之用。
 
 