楼主给出的代码是表达了那样的信息。不过，可能楼主没有表达清楚，要是那样的话有什么意义？

楼主要删除的记录是表中前12条记录，看下原表就明白了

我仔细分析了楼主的代码，错误出在 scan 循环结构中使用 skip 造成的，因为在 endscan 时系统会再执行一次 skip，这样就多移动了一次指针。将代码中的 scan ... endscan 改为 do while not eof()...enddo，其他代码不作任何修改就可以了，请测试。

收到的鲜花

• tlliqi 于 2014-04-25 21:26 送鲜花  20朵   附言：加分

是的 分析正确

回复楼上的 sdta 对这段程序的理解:
确实要逻辑删除相同记录中第一次出现的记录.谢谢你了,以后还得多向你学习.

建议楼主认真研究下Scan EndScan命令的用法

回复六楼 tlliqi的提问:上面写的代码确实把第一次出现有重复的记录做了逻辑删除标记,不过只要能查出哪些记录有重复,下面的工作就好做了.

你（們）又知道報名字段重覆就等於記錄重覆了？

楼主你好:看了你的问题,觉得你的题意有问题.
1.首先你要删除的不是重复记录,因为冲你提供的表来看,里面的记录没有一条是重复的.
  所谓重复记录是指两条记录里面的字段内容完全相同.而你的样表中没有这样的记录。
2.根据你要取得的结果来看,应该是:报名序号相同的记录,只保留后面一条记录(引深来看
  如果报名序号相同超过两条记录的保留最后一条记录)。
3.按照此意，你写的程序本身有问题，所以得到的结果必然是错的。
4.要得到正确的结果，利用我们掌握的SQL-SELECT语句就可以解决这个问题，
  具体做法如下：
  SELECT RecNo() AS recno,* FROM lsb INTO CURSOR tmp1
  SELECT Max(recno) AS recno FROM tmp1 GROUP BY 报名序号 INTO CURSOU tmp2
  SELECT 序号,组序号,报名序号,姓名,性别,成绩,Cname,Id FROM tmp1 a INNER JOIN tmp2 b ;
      ON a.recno=b.recno INTO CURSOR tmp3

  好了tmp3就是楼主要得结果，当然这是最简单的，如果对得到的结果记录有其他要求的，还
需要按照实际情况，作出调整,请你自己举一反三了。

收到的鲜花

• tlliqi 于 2014-04-26 18:44 送鲜花  20朵   附言：回复很有道理

回复很有道理