一个表内有两条关键字段相同的记录。第一条是错误的，第二条应保留。用循环语句能找到第二条相同的记录可以删除，但我要的是第二条保留。烦请老师指导一下。当然我应该改进录入程序不要产生此类情况。可有时避免不了的时候如突然故障只好重输数据时就容易出现重复数据的情况，第一条就是错误的。

关闭索引，Locate for 你的关键字==关键字的具体值 all
浏览一下整条记录
next可到下一条
 

楼上 为什么要关闭索引呢

关闭索引后就是自然顺序.就能保证你的第一条在第二条的前面.就没有万一的情况发生

昨天我没有把问题说明白。一个表内出现有重复纪录，虽然设了关键字段（可以是多个关键字段），这样的情况在工作中却经常可以遇到，第一次操作可能是有误需要重新再来，也可能某纪录增添信息再次录入等原因。一般来说以最后一次输入的数据为准，我打算在录入时增加一个日期时间型的字段存储录入的时间，这样在统计或使用数据前先整理数据表，将表内的关键字相同的数据找出来，保留最后输入的纪录，删除以前的纪录。我现在的办法是另设一个表，用循环语句逐条纪录追加到新表内，在原来的表内，检索前时并不知道哪一个纪录是有重复的，现在我整理数据用循环语句找到第一条后，将关键字段相同的后面的（一条或几条相同的）纪录拒绝了。录入的是只能是第一条纪录。这不是我想要的结果。 如何用程序将上述问题解决，请教各位老师给与指导。

建议：突然故障只好重输数据时，先用关键字把此错记录删除然后再重输数据。（当时处理就用不着再找删了）

关键字也可以重复吗？

VFP本身就有防止出现多个关键字的机制，楼主可参考一下。

楼主先认真测试一下：
USE 表名 EXCLUSIVE
INDEX on 日期时间字段名 TO dt

FOR i=1 TO RECCOUNT()
    GO i
    namez=姓名
    SET FILTER TO 姓名=namez
    COUNT TO ii
    IF ii>1
    GO top
    FOR j=1 TO ii-1
        DELETE
        IF !EOF()
            skip
        ENDIF
    NEXT
    SET FILTER TO
    ENDIF
NEXT  
pack

最爽的就是用select *,max(日期时间字段名) from 表 group by 关键字 into 新表
你要想一条一条的慢慢搞就这样也可试一下:
use 表 in 0
select 表
index on 关键字 tag 关键字
go top
scan
    i=关键字
    skip
    if 关键字=i
        skip -1
        delete
        skip
    endif
endscan