谁和谁相等，真、假相对谁而言

是整个表比较，还是在一条记录中？

看来还是没表达清楚。

如果只是判断真、假(相同的值)，最后查询结果表中的记录不为空，说明结果为假，否则为真。

Select 原表
Go 1
 k = 0
 RETURN1 = 0
 DIMENSION number1(11,11)
 FOR i = 1 TO 11  &&将二维表格数据导入一维数组
    FOR ii = 1 TO 11
         k = k+1
         a = FIELD(ii)
         number1(k) = &a
     ENDFOR
     SKIP
 ENDFOR
 FOR i = 1 TO 121  &&逐个比较
     aa = number1(i)
      FOR ii = 1 TO 121
      bb = number1(ii)
      IF aa = bb AND i!=ii &&这里必须排除自身
        RETURN1 = 1
        MESSAGEBOX('找到重复记录：'+ALLTRIM(STR(aa)))
         EXIT
      ENDIF
      ENDFOR
      IF RETURN1 = 1
         EXIT
      ENDIF
 ENDFOR

[ 本帖最后由 ktliaobonk 于 2015-2-25 00:53 编辑 ]

收到的鲜花

• fdxxhjc 于 2015-02-25 14:58 送鲜花  3朵   附言：好文章

看不太明要求，到底是“表中”还是“记录中”?
只能按假设构思一下：
1、如果按每条记录进行比对。将某一记录复制到数组，再对数组排序，这条记录有无重复就好清楚了。
2、如果按整个表的数据进行对比，将整个表复制到数组，再对数组排序，整个表有多少重复也就好清楚了。
注意：多列数组要转换为单列数组。

先生您的代码运行下来怎么会有重复的数值“48”的，我的表中显然是没有重复的48的

我写的是通用代码，自己修改一下吧

哦，谢谢先生

第一，要真實意圖和真實數據。
第二，文字敘述不清，就多給樣本，而不是衹給一個被誤會成特例。

別人搞錯了意圖，耽誤別人的功夫是另一回事（可能那人的確閑得慌），但更耽誤自己的事才是大事。