程序代码：

CLEAR 
SET TALK OFF
SET SAFETY OFF
USE 检查结果 ALIAS 检查结果 IN 0
ZAP
USE 原表 ALIAS 原表 IN 0
SELECT 原表
SCAN
    COPY TO ARRAY a原表 FIELDS LIKE 列* NEXT 2
    IF a原表(1,2)==a原表(2,2) AND a原表(1,3)==a原表(2,3) AND a原表(1,4)==a原表(2,4) AND !(LEFT(a原表(1,1),2) == LEFT(a原表(2,1),2))    
        INSERT INTO 检查结果 VALUES (a原表(1,1), a原表(2, 1), "", "")
    ENDIF
    IF RECNO() < RECCOUNT()
        SKIP -1
    ENDIF
ENDSCAN

SELECT 检查结果
GO TOP 
BROWSE
CLOSE DATABASES ALL
*MESSAGEBOX('检验已结束！',64,'信息提示')

程序代码：

CLEAR
SET SAFETY OFF
CLOSE DATABASES
USE 检查结果
ZAP
USE 原表
SCAN
    NREC=RECNO()
    COPY TO ARRAY AROW NEXT NREC+1
    GO NREC
    IF AROW[1,2]=AROW[2,2] AND AROW[1,3]=AROW[2,3] AND AROW[1,4]=AROW[2,4] AND !(ALLTRIM(AROW[1,1])=ALLTRIM(AROW[2,1]))
        INSERT INTO 检查结果(列1,原记录行) VALUES (AROW[1,1],RECNO("原表"))
        INSERT INTO 检查结果(列1,原记录行) VALUES (AROW[2,1],RECNO("原表")+1)
    ENDIF
ENDSCAN
SELECT 检查结果
BROWSE

[此贴子已经被作者于2016-3-15 16:50编辑过]

[此贴子已经被作者于2016-3-15 20:24编辑过]