VFP6.0版本
删除所有d13重复的记录
close data
use 1.dbf alia t1 EXCLUSIVE  in 0
delete from t1 where d13 in (select d13 from t1 group by d13 HAVING count(*)>1)
select t1
pack
close data
-----------------
删除d13重复的记录，仅保留其中一条
close data
use 1.dbf alia t1 EXCLUSIVE  in 0
SELECT * FROM t1  group by d13 INTO CURSOR TMP
ZAP IN t1
SELECT t1
APPE FROM (DBF('TMP'))
close data








[ 本帖最后由 kiff 于 2013-4-26 08:31 编辑 ]

假如删除“常馨月”：
DELETE ALL for 姓名="常馨月"    &&删除所有的
**仅保留第一个
LOCATE for 姓名="常馨月"
n=RECNO()
DELETE ALL for 姓名="常馨月" .and. RECNO()<>n

**以上只是打上删除标记，要物理删除还需：pack命令。

你不试 怎么知道

打开表
dele all for 姓名字段=="XXX"

显示文件“in.dbf”不存在，是怎么回事啊老大

in.dbf 是你的数据表吗，要指定路径啊

pack in t1
应该是这句话有问题

那就改
select t1
pack

需要那么复杂吗？可以换种思路呀。以不需要保留重复值为例：
SELECT * FROM 表名 ;
   WHERE D13 NOT IN ;
      (SELECT D13 FROM 表名 ;
          GROUP BY D13 HAVING COUNT(D13)>1) ;
   INTO TABLE 表名2
USE IN 表名
ERASE 表名
RENAME TABLE 表名2 TO 表名

在VFP6。O使用 SQL语句真是件麻烦事，哪些能用，哪些不能用，有时真的搞得不清楚。

dele from 1.dbf where d123=(select max(d123) from 1.dbf group by 其它字段)试下