我算的结果都是重复? 按13行8列为一块算，是否这样算的?

USE 有无重复检验记录表 ALIAS 有无重复检验记录表 IN 0
ZAP
USE 原表 ALIAS 原表 IN 0
SELECT 原表
GO 2 
i = 0
DO WHILE !EOF("原表")
    DIMENSION a原表[13, 8]
    COPY TO ARRAY a原表 FIELDS LIKE 列* NEXT 14
    IF !EOF("原表")
        SKIP IN "原表"
    ENDIF
    i = i + 1
    DIMENSION a原表[104]
    ASORT(a原表)
    bl = .T.
    dd = 0
    FOR EACH ad IN a原表
        IF ad == dd
            *? dd,ad,"运行记录号", i, "已有重复，作废"
            bl = .F.
            EXIT
        ELSE
            dd = ad
        ENDIF
    ENDFOR
    
    IF bl
        ? "运行记录号", i, "无重复"
    ENDIF
ENDDO
CLOSE DATABASES ALL
RETURN

Clear 
Clear All 
Create Cursor Tt1 (记录行 i,值 i)
t1=Seconds()
Select * from (Select 列1,列2,列3,列4,列5,列6,列7,列8,Ceiling(Recno()/14) 记录号,Iif(Mod(Recno(),14)=0,14,Mod(Recno(),14)) 行号 from 原表) a1 where Between(a1.行号,2,12) into cursor temp
Scan
    Scatter Fields Like 列* To azd
    For lnI=1 To Fcount("temp")-2
        Insert Into tt1 Values (temp.记录号,azd[lnI])
    EndFor 
EndScan 
Select 记录行,Iif(nmax>1,"重复",Space(4)) 结果 from (Select 记录行,Max(ncnt) nmax from (select 记录行,值,Count(*) ncnt from tt1 group by 1,2) A1 group by 1) A2 into cursor temp1
MessageBox(Transform(Seconds()-t1))
browse

看了楼主的代码：
FOR P=1 TO HS/14
    SELECT 3
    USE 原表
    Go (P-1)*14+2
    k = 0
    RETURN1 = 0
    DIMENSION number1(11,8)
    FOR i = (P-1)*14+2 TO (P-1)*14+12  &&将二维表格数据导入一维数组
        FOR j = 2 TO 9
            k = k+1
            a =b(i,j)
            number1(k) = a
        ENDFOR
        SKIP
    ENDFOR
看似也是14行8列一块，但只取前11行的有效数，最后2行没用?
再试了一下，是不是这结果：

USE 有无重复检验记录表 ALIAS 有无重复检验记录表 IN 0
ZAP
USE 原表 ALIAS 原表 IN 0
SELECT 原表
GO 2 
i = 0
DO WHILE !EOF("原表")
    DIMENSION a原表[15, 8]
    COPY TO ARRAY a原表 FIELDS LIKE 列* NEXT 15
    i = i + 1
    *DIMENSION a原表[104]
    DIMENSION a原表[88]
    ASORT(a原表)
    bl = .T.
    dd = 0
    FOR EACH ad IN a原表
        IF ad == dd
            *? "运行记录号", i, "已有重复，作废",dd,ad
            INSERT INTO 有无重复检验记录表 VALUES (i, "已有重复，作废")
            bl = .F.
            EXIT
        ELSE
            dd = ad
        ENDIF
    ENDFOR
    IF bl
        *? "运行记录号", i, "无重复"
        INSERT INTO 有无重复检验记录表 VALUES (i, "无重复")
    ENDIF
ENDDO
SELECT 有无重复检验记录表
GO TOP 
BROWSE
CLOSE DATABASES ALL
RETURN

先生您好，首先感谢您的代码，可行了，诚挚的感谢。但我在拜读时有一行我搞不懂：
 DIMENSION a原表[88]  这一行代码作何用处我看不懂，请指教，谢谢

哦，是定义一个一维的88个内存变量是吗

是的，DIMENSION a原表[88] 是定义数组（a原表）88个单元。

谢谢先生，诚挚的感谢