如何查找两个相同结构的DBF表中不相同的记录?
有两个结构一样的表，有个别记录不同，需要把不同的记录提取出来。
如A表
idxmxb
01A011
02A021
03A031
04A042
05A052
06A062
07A071
08A081
09A091
10A102
B表
idxmxb
01A111
02A021
03A032
04A041
05A052
06A062
07A071
08A081
09A091
10A102
对比A表和B表后到不相同记录的C表
id zd btz1 btz2
01 xm A01 A11
03 xb 1 2
04 xd 2 1
[解决办法]
zd="XM"
adbf ="X:\个人数据\VF\111\表a.DBF"
bdbf ="X:\个人数据\VF\111\表b.DBF"
TF=0
CLOSE DATABASES
use
DELETE FILE dbjg.DBF
DELETE FILE ta1.DBF
DELETE FILE ta2.DBF
DELETE FILE tb1.DBF
DELETE FILE tb2.DBF
USE &adbf IN 1
zdshu=AFIELDS(Stru1,1)
DIMENSION zdmsz(zdshu)
USE &bdbf IN 2
zdshu2=AFIELDS(Stru2,2)
CLOSE DATABASES
IF zdshu!=zdshu2
MESSAGEBOX("结构不相同！",64,'信息提示')
TF=1
ELSE
FOR tc=1 TO zdshu
zdmsz(tc)=Stru1(tc,1)
IF zdmsz(tc)==zd THEN
zdh=tc
ENDIF
FOR tr=1 TO 15
IF Stru1(tc,tr)==Stru2(tc,tr)
ELSE
MESSAGEBOX("结构不相同！",64,'信息提示')
TF=1
EXIT
ENDIF
ENDFOR
IF TF=1
EXIT
ENDIF
ENDFOR
ENDIF
IF TF=0 THEN
SELECT * FROM &adbf WHERE &zd NOT IN(SELECT &zd FROM &bdbf) INTO TABLE ta1
COPY STRUCTURE TO dbjg FIELDS &zd
USE dbjg
ALTER TABLE dbjg ADD zdm C(20)
ALTER TABLE dbjg ADD dbz C(100)
DELETE FILE dbjg.BAK
SELECT * FROM &bdbf WHERE &zd NOT IN(SELECT &zd FROM &adbf) INTO TABLE tb1
CLOSE DATABASES
USE dbjg.DBF
APPEND FROM ta1.DBF
REPLACE ALL dbz WITH "B表不包含"
APPEND FROM tb1.DBF
REPLACE ALL dbz WITH "A表不包含" FOR dbz=" "
REPLACE ALL zdm WITH zd
DELETE FILE ta1.DBF
DELETE FILE tb1.DBF
SELECT * FROM &adbf WHERE &zd IN(SELECT &zd FROM &bdbf) INTO TABLE ta2
SORT TO ta1 ON &zd
SELECT * FROM &bdbf WHERE &zd IN(SELECT &zd FROM &adbf) INTO TABLE tb2
SORT TO tb1 ON &zd
CLOSE DATABASES
USE ta1
jj=&zd
DIMENSION btjl(3)
FOR i=1 TO RECCOUNT()
SKIP 1
IF jj==&zd THEN
btjl(1)=&zd
btjl(2)=zd
btjl(3)="A表记录重复"
DELETE
INSERT INTO dbjg FROM ARRAY btjl
ELSE
jj=&zd
ENDIF
ENDFOR
PACK
jlshu=RECCOUNT()
DIMENSION sja(jlshu,zdshu)
COPY TO ARRAY sja REST
CLOSE DATABASES
USE tb1
jj=&zd
DIMENSION btjl(3)
FOR i=1 TO RECCOUNT()
SKIP 1
IF jj==&zd THEN
btjl(1)=&zd
btjl(2)=zd
btjl(3)="B表记录重复"
DELETE
INSERT INTO dbjg FROM ARRAY btjl
ELSE
jj=&zd
ENDIF
ENDFOR
PACK
DIMENSION sjb(jlshu,zdshu)
COPY TO ARRAY sjb REST
CLOSE DATABASES
DELETE FILE ta1.DBF
DELETE FILE ta2.DBF
DELETE FILE tb1.DBF
DELETE FILE tb2.DBF
USE dbjg
DIMENSION btjl(3)
FOR tr=1 TO jlshu
FOR tc=1 TO zdshu
IF sja(tr,tc)!=sjb(tr,tc) THEN
btjl(1)=sja(tr,zdh)
btjl(2)=zdmsz(tc)
btjl(3)="A表和B表值不同"
mtype=VARTYPE(sja(tr,tc))
DO CASE
CASE mtype$"CM"
btjl(3)="A："+sja(tr,tc)+" B："+sjb(tr,tc)
CASE mtype$"NY"
btjl(3)="A："+STR(sja(tr,tc),15,3)+" B："+STR(sjb(tr,tc),15,3)
CASE mtype$"DT"
btjl(3)="A："+TTOC(sja(tr,tc))+" B："+TTOC(sjb(tr,tc))
ENDCASE
INSERT INTO dbjg FROM ARRAY btjl
ENDIF
NEXT
NEXT
ENDIF
USE dbjg
BROWSE
