本人菜鸟一个，因为工作需要删除DBF中重复的记录，看到Tiger5392老师的帖子，很是欣喜若狂，但是有个地方不懂
USE 表
DO WHILE NOT EOF()
N=RECNO()
M=A
LOCATE ALL FOR A=M and RECNO()>N
IF !EOF()
DELETE ALL FOR A=M and RECNO()>N
ENDIF
GO TOP
SKIP N-1
ENDDO
PACK

M=A这个地方不懂，请多指教，多谢！

如果所有字段均重复的记录

SELECT     DISTINCT     *     into     新表     FROM     你的表

重复记录的标准是指某个字段的值还是所有字段的值，如果是某个字段不允许重复的记录则容易些。
代码中的A应该是指不重复值的字段名。

我试了，为什么不好使呢，说不认识的关键字或短语

[ 本帖最后由 zhangmq1974 于 2012-1-19 14:43 编辑 ]

如果指的的所有字段都重复的记录如何删除呢

M=A&&将字段A的当前记录保存在内存变量M中。
另外也可以用 index on a tag a unique搞一个索引然后复制copy to yourtanblename

对于“所有字段都重复的记录的删除问题”，先看看原来程序，若字段A重复，只保留第一个记录，那么程序就那样写。假如字段A和B同时重复，只保留第一个记录，那么程序可以这样修改
USE 表
DO WHILE NOT EOF()
  N=RECNO()
  M1=A
  M2=B
  LOCATE ALL FOR A=M1 and B=M2 and RECNO()>N
  IF !EOF()
    DELETE ALL FOR A=M2 and B=M2 and RECNO()>N
  ENDIF
  GO TOP
  SKIP N-1
ENDDO
PACK
如此，你就可以修改程序完成你的要求了

6.0?

这样
SELECT * DISTINCT FROM 你的表 into table 新表   

[ 本帖最后由 tlliqi 于 2012-1-19 15:42 编辑 ]

如果重复记录的所有字段是一样的, 建议采用8楼方法~

如果是个别字段重复的, 建议采用6楼方法, 即:  inde on 字段(或几个字段相加的表达式) uniq to ...

例: inde on 字符型字段1+字符型字段2+str(数字型字段3,16,6)+... uniq to ...

 






 

[ 本帖最后由 茵梦湖 于 2012-1-21 14:33 编辑 ]

有重复记录说明程序设置的不严谨，应该找原程序设计人员解决，经常在表中作删除操作，误删除的机会还是比较大的。
下面这段代码可以帮你找到重复的记录
close table
use TABLENAME &&表名
for i=1 to RECCOUNT()
    go i
    chz=hz && HZ重复字段名
    COUNT FOR HZ==CHZ TO X
    if X>1
       BROW FOR HZ==CHZ  FONT "宋体",22
    endif
endfor