两个DBF表,原表和比对表数据结构一致,需要比对原表和比对表中有差异的字段数据,可以使用逐行逐字段比对的方式,对应字段如有差异则显示
clear
CLOSE TABLES all
USE 原库 ALIAS yk EXCLUSIVE IN 1
USE 比对库 ALIAS bdk EXCLUSIVE IN 2
SELECT 1
n=FCOUNT()
SCAN
curRecNo=RECNO()
FOR i=1 TO n
strF=fields(i)
strTemp1=&strF
SELECT 2
GO curRecNo
strTemp2=&strF
IF strTemp1<>strTemp2
strResult="记录号:"+TRANSFORM(curRecNo)+","+strF+',原库值:'+strTemp1+",比对库值:"+strTemp2
?strResult
ENDIF
SELECT 1
ENDFOR
ENDSCAN
MESSAGEBOX("比对完毕")
CLOSE TABLES all