先生下午好,请教一个问题,我有一个很多行4列的原表.DBF,现要求从第一行开始与它下面紧挨着一行的第2、3、4列作比较（1、2二行作比较，2、3二行作比较，3、4二行作比较，直到文件末）,若三列各同列相等，则在检查结果.DBF中写入这二行的第一列的内容，写了段代码，但没通过，请先生指点，谢谢，代码如下

CLEAR
SET SAFETY OFF
USE 检查结果 ALIAS 检查结果 IN 0
ZAP
USE 原表 ALIAS 原表 IN 0
SELECT 原表
GO 1
i = 0
DO WHILE !EOF("原表")   
    DIMENSION a原表[2, 4]
    COPY TO ARRAY a原表 FIELDS LIKE 列* NEXT 2
    i = i + 1   
    If a原表(i,2)=a原表(i+1,2) AND  a原表(i,3)=a原表(i+1,3) AND  a原表(i,4)=a原表(i+1,4) and LEFT(a原表(i,1),2) <> LEFT(a原表(i+1,1),2)   
     INSERT INTO 检查结果 VALUES ( a原表(i, 1),a原表(i+1, 1))
       ELSE
     ENDIF
ENDDO
SELECT 检查结果
GO TOP
BROWSE
CLOSE DATABASES ALL
RETURN
MESSAGEBOX('检验已结束！',64,'信息提示')

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

有没数据，有数据的话，比较好测试。

有的

先生已发附件了

COPY TO ARRAY 会移动记录指针，要控制好。

我运行时这一行代码提示说下标超界
 If a原表(i,2)=a原表(i+1,2) AND  a原表(i,3)=a原表(i+1,3) AND  a原表(i,4)=a原表(i+1,4) and LEFT(a原表(i,1),2) <> LEFT(a原表(i+1,1),2)

是不是这个样：

CREATE CURSOR tt (f1 I, f2 I, f3 I, f4 I)
FOR i = 1 TO 5
    INSERT INTO tt VALUES (i, i*2, i*3, i*4)
ENDFOR
SCAN
    COPY TO ARRAY aa NEXT 2
    ?aa[1, 1], aa[1, 2], aa[1, 3], aa[1, 4]
    ?aa[2, 1], aa[2, 2], aa[2, 3], aa[2, 4]
    ?
    IF RECNO() < RECCOUNT()
        SKIP -1
    ENDIF
ENDSCAN

先生不好意思,我看不懂您的指点,可否在我提问的代码中帮我修改,谢谢

相邻两行是任意三列相同，还是后三列相同，楼主没有说清楚。

是后三列(各自)上下比较相同并且第一列上下不同的则写入到检验结果表中否则不写入继续比对