请教各位大侠：“对于某一个数据库文件zyda.dbf,,用seek命令编写按姓名查询程序,要求能够查询所有重名记录。”这个程序怎么编呢？？麻烦指点

SELECT * FROM 表名 WHERE 姓名 IN (SELECT 姓名 FROM 表名 GROUP BY 姓名 HAVING count(*)>1) order by 姓名

要求的是用seek命令编写

seek命令难做吧，能达到目的即可。也许你是作业题，也不知道是不是有解的作业题呢？我觉得很难的，企盼高手出现。

很可能是作业题

出来结果即可 不必要特定什么方法

用seek加循环语句就能实现。

麻烦高手把具体的程序语句写出来，谢谢您！

我写了一个可是是死循环
use zyda
accept "请输入姓名：" to xm
index on 姓名 to xmsy
do while .not.eof()
seek &xm
disp
skip
enddo
use

试试下面的代码：
use zyda
accept "请输入姓名：" to xm
nCfs=0
index on 姓名 to xmsy
do while .not.eof()
seek &xm
if found()
  disp
  nCfs=nCfs+1
else
  exit
endif
enddo
?? xm+"重复了"+str(nCfs)+"次。"
use