各位前辈新年好，现在请教检测记录中有否重复数值的代码
譬如有一个11行11列的表文件（这个表文件中有两次记录是数值8），如何检测有无重复记录，谢谢
1       2      3       4      5      6      8     8     9      10    11
12      13     14     15     16     17     18    19     20     21    22
23      24     25     26     27     28     29    30     31     32    33
34      35     36     37     38     39     40    41     42     43    44
45      46     47     48     49     50     51    52     53     54    55
56      57     58     59     60     61     62    63     64     65    66
67      68     69     70     71     72     73    74     75     76    77
78      79     80     81     82     83     84    85     86     87    88
89      90     91     92     93     94     95    96     97     98    99
100    101    102    103    104    105    106    107    108    109    110
111    112    113    114    115    116    117    118    119    120    121

重复记录是指两条或两条以上记录所有字段的值完全相同
不知楼主所说的重复记录是什么意思？

是出现2次为重复记录？

从楼主举例来看，不是记录重复值，而是列重复值，即记录中有相同值的字段。
如 第一行 有两列的值是 8
这个还真不好做。

哦，先生是这样，只要表中有两个或两个以上的记录数值相等就算“假”，两两各不相等就算“真”。谢谢先生

上传原始数据表

[ 本帖最后由 sdta 于 2015-2-24 10:30 编辑 ]

请教先生我找不到上传原表的位置

哦，找到了

* 生成测试数据
create cursor tt1 (记录行 i,字段名 c(10),值 i) && 临时表
create cursor tt (a1 i,a2 i,a3 i,a4 i,a5 i,a6 i,a7 i,a8 i,a9 i,a10 i,a11 i)
for lnI=1 to 11
    append blank
    nzds=0
    for lnJ=(lnI-1)*11+1 to lnI*11
        nzds=nzds+1
        replace (field(nzds)) with lnJ
    endfor
endfor
* 设置相同数据
replace record 1 a7 with 8
replace record 4 a6 with 48
replace record 6 a6 with 48
* 列记录转换为行记录
scan
    scatter to azd
    for lnI=1 to fcount("tt")
        insert into tt1 values (recno("tt"),field(lnI,"tt"),azd[lnI])
    endfor
endscan
* 显示查询结果
select * from tt1 where 值 in (select 值 from tt1 group by 值 having count(*)>1) order by 值

收到的鲜花

• fdxxhjc 于 2015-02-25 14:57 送鲜花  3朵   附言：我很赞同

先生不好意思是我没表达清楚，我的要求是：只要表中有两个或两个以上的记录数值相等（不管有多少种不同的相等数值）就算检测结果为“假”，若两两各不相等就算检测结果为“真”。谢谢先生