我有一表共有16个字段，若同一条记录中的16个字段中一出现有重复记录就想删除这条记录，用了很笨的方法，请问如何简化代码，谢谢（代码下附）
USE 原表
记录数=RECCOUNT()
For I= 1 To 记录数
   IF 列1=列2 or 列1=列3 or 列1=列4 or 列1=列5 or 列1=列6 or 列1=列7 or 列1=列8  or 列2=列3  or 列2=列4 or 列2=列5 or 列2=列6 or 列2=列7 or 列2=列8 or 列3=列4  or 列3=列5 or 列3=列6 or 列3=列7 or 列3=列8 or  列4=列5 or 列4=列6  or 列4=列7  or 列4=列8  or 列5=列6  or 列5=列7 or 列5=列8 or 列6=列7 or 列6=列8 or  列7=列8     &&后面好长好长
    DELETE
   PACK
    ELSE   
   ENDIF
ENDFOR
MESSAGEBOX('本 次 运 行 结 束 ！！',64,'信息提示')

是整数数值 浮点型  还是字符型 ？？

是整数数值型
这几行代码只是删除8个字段的，若16个字段甚至字段更多那这个or行的代码太麻烦并且很容易出错，谢谢

这样是不行
另:你所说的重复记录是指某一记录在你这16列中只能是某一列中有,对吗?

最大值不是很大的话  可以试试这个办法：

最大值比如10000  设置一个整型数组 长度为10000 全部初始为0  

然后扫描 字段  令数组[下标] 中的下标=字段的 自增1  （比如当前字段为100，则 数组[100]+=1)  当所有字段全部扫描完毕

再扫描数组  有任何一个元素大于1 的 则 删除该记录

哦，像以下的第一行要删除，第三行要删除
列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


[ 本帖最后由 fdxxhjc 于 2015-3-24 09:02 编辑 ]

是的
同一记录中不能出现一种或一种以上的相等数值

先生不好意思，我看不懂

我的意思主要是数轴记录法  不过有负数不行，但是要是知道最小值和最大值的话 也是可以变通的

记录中有负数的