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