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