| | | 大型数据库信息排错一法 | | 2001-12-29·
·李碧波 ··yesky
| 上一页 1 2 3 4 5 6 下一页
四、比较两个数据库的个人信息，设标记
do 1
1.prg
SET DEFAULT TO d:\dbf
SET PATH TO d:\dbf
select 1
use lyc1
select 2
use lyc1_1
do while not eof()
select 1
go 1
locate for xm = lyc1_1 -> xm
do while not eof()
if sbbh = lyc1_1 -> sbbh 如果姓名相同，社保编号也相同，设标记为y
replace xh with lyc1_1 -> xh
replace bj with "y"
replace lyc1_1 -> bj with "y"
if ryfl="在职" and lyc1_1 -> tgz > 0 如果有退休工资，不能是在职
replace ryfl with "在职？"
endif
if ryfl="退休" and lyc1_1 -> zgz > 0
replace ryfl with "退休？"
endif
if ryfl=" " and lyc1_1 -> tgz > 0
replace ryfl with "？退休"
endif
if ryfl=" " and lyc1_1 -> zgz > 0
replace ryfl with "？在职"
endif
exit
else
if bj<>"y" 如果标记没设为y
replace xh with lyc1_1 -> xh
replace bj with "n" 姓名相同，社保编号不同，设标记为n
endif
continue
endif
enddo
select 2
skip 1
enddo
sele 1
use
sele 2
use | 上一页 1 2 3 4 5 6 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
