| do 2 2.prg SET DEFAULT TO d:\dbf SET PATH TO d:\dbf select 1 use lyc1 select 2 use lyc1_1 select 1 go 1 do while not eof() if bj="n" select 2 go 1 locate for xm = lyc1 -> xm if not eof() replace db with lyc1 -> sbbh 姓名相同，对比社保编号 replace lyc1 -> db with sbbh endif endif select 1 if bj=" " select 2 go 1 locate for sbbh = lyc1 -> sbbh if not eof() replace db with lyc1 -> xm 社保编号相同，对比姓名 replace lyc1 -> db with xm endif endif select 1 skip 1 enddo sele 1 use sele 2 use |
