有两个信息数据表（xxb1.dbf,xxb2.dbf)，其中第二张表是在第一张表的基础上修改得来的，两表的结构完全一样。现在想通过编程方法检查出修改了哪条记录的哪些字段信息，也就是想得到修改数据表（xg.dbf)。由于字段多，记录也很多，基本是上万条，所以每个字段来检查的话太费功夫了，请老师们指教。

sele xxb1.xh xh1,xxb2.xh xh2,xxb1.sfzh sfzh1,xxb2.sfzh sfzh2 from xxb1 left join xxb2 on xxb1.xh=xxb2.xh where !allt(xxb2.sfzh)==allt(xxb1.sfzh)

以sfzh为例

谢谢tlliqi版主，一个字段一个字段的检查是可以的，字段多了，很费时的,而且记录超过10000条的话，机器运行就很慢了。我想能不能一次性检查出来。

可能没有其他捷径。

以 xm 为键值
SELECT * FROM xxb1 UNION SELECT * FROM xxb2 INTO CURSOR t1 ORDER BY xm
SELECT a.* FROM t1 a,(SELECT xm FROM t1 GROUP BY xm HAVING COUNT(*)>1) b WHERE a.xm=b.xm

谢谢KIFF版主，很好！

SELECT * FROM XXB1 INTO CURSOR XXB
EE=AFIELDS(AA,'XXB')
CREATE CURSOR T (XH C(8),字段名 C(10),XXB1内容 C(20),XXB2内容 C(20)) &&保存不同记录的临时表
FOR I=1 TO EE
    STORE "SELECT " TO ASQLA,ASQLB
    IF UPPER(AA(I,1))<>'XH'
       ASQLA=ASQLA+"'"+AA(I,1)+"' AS ZD,XH,"+AA(I,1)+" FROM XXB1 INTO CURSOR QTA"
       &ASQLA
       ASQLB=ASQLB+"'"+AA(I,1)+"' AS ZD,XH,"+AA(I,1)+" FROM XXB2 INTO CURSOR QTB"
       &ASQLB
       ASQLC="INSERT INTO T SELECT A.XH,A.ZD,A."+AA(I,1)+",B."+AA(I,1)+" FROM QTA A LEFT JOIN QTB B ON A.XH=B.XH WHERE A."+AA(I,1)+"<>B."+AA(I,1)
       &ASQLC
    ENDIF
NEXT 

SELECT T
INDEX ON XH TO XH
BROWSE

字段修改内容



[ 本帖最后由 sdta 于 2013-5-27 02:16 编辑 ]