| | | 大型数据库信息排错一法 | | 2001-12-29·
·李碧波 ··yesky
| 上一页 1 2 3 4 5 6 下一页
五、为标记为"n"和" "的记录寻找"对比"信息
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 | 上一页 1 2 3 4 5 6 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
