vfp比对两个表文件的差异

两个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