存在最大值（正数） 最小值（负数） 吗？

重复记录是行记录(某两行所有字段记录重复)重复，还是某一字段的记录重复。最好上传数据表看看。

将当前记录COPY TO ARRAY，再ASORT()数组，有重复的就好清楚了。

PACK命令能不用最好不用，更不要在每次DELETE命令后就PACK。
PACK命令会重建表文件，运行效率低，要求独占表，临时表也不能用。
可用ZAP和APPEND FROM 命令代替，ZAP命令只是将表文件结束标志放到表数据记录头，运行效率较高。
示例：

CLEAR
SET SAFETY OFF

CREATE CURSOR 表 (列1 I, 列2 I, 列3 I, 列4 I)
INSERT INTO 表 VALUES (1, 2, 3, 4)
INSERT INTO 表 VALUES (5, 6, 5, 8)
INSERT INTO 表 VALUES (9, 10, 11, 12)
INSERT INTO 表 VALUES (13, 14, 15, 14)

SCAN
    COPY TO ARRAY a表 FIELDS LIKE 列* NEXT 1
    DIMENSION  a表[ALEN(a表)]
    ASORT(a表)
    n列 = NULL
    FOR EACH Ai IN a表
        IF ai == n列
            DELETE
            EXIT
        ELSE
            n列 = ai
        ENDIF
    ENDFOR
ENDSCAN
*PACK    && 自由表用

CREATE CURSOR 表2 (列1 I, 列2 I, 列3 I, 列4 I)
APPEND FROM DBF("表") FOR !DELETED()
SELECT 表
ZAP
APPEND FROM DBF("表2")
BROWSE

哦，像以下的第一行要删除，第三行要删除
列1    列2    列3    列4    列5    列6    列7    列8
-6    -24    2    -8    -24    -2    -16    -8
-6    -24    2    -10    -22    -2    -14    -10
-6    -24   -2    -12    -20    -2    -12    -12
-6    -24    2    -17    -19    -2    -11    -13

先生您好，就以8列为例，我运用您给的代码，可运行下来“原表”中没有删除一条记录中有相同数值的这一行，谢谢先生指点（原表及代码在附件中），谢谢

看你的示例只有一条数据记录：原表 VALUES (1, 2, 3, 4, 5, 6, 7, 8)
试试这样直接取原表数据：

CLEAR
SET TALK OFF 
SET SAFETY OFF

CREATE CURSOR 表 (列1 I, 列2 I, 列3 I, 列4 I, 列5 I, 列6 I, 列7 I, 列8 I)
APPEND FROM 原表.dbf

SCAN
    COPY TO ARRAY a表 FIELDS LIKE 列* NEXT 1
    DIMENSION  a表[ALEN(a表)]
    ASORT(a表)
    n列 = NULL
    FOR EACH ai IN a表
        IF ai == n列
            DELETE
            EXIT
        ELSE
            n列 = ai
        ENDIF
    ENDFOR
ENDSCAN
*PACK    && 自由表用

CREATE CURSOR 表2 (列1 I, 列2 I, 列3 I, 列4 I, 列5 I, 列6 I, 列7 I, 列8 I)
APPEND FROM DBF("表") FOR !DELETED()
SELECT 表
ZAP
APPEND FROM DBF("表2")
GO TOP 
BROWSE

好复杂 真难呀

这还不简单啊，把行转换为列来考虑。

select reccno() as 行号,列1 as 值 from tablename
union all
select reccno() as 行号,列2 as 值 from tablename
........

最后select 行号,count(值) as 重复个数 from tablename group by 行号 having count(值)>=2 不就出来了吗？