accept "请输入姓名：" to xm
use zyda
index on 姓名 to xmsy
seek xm
do while .not.eof()
   disp
   skip
   if 姓名<>xm
      exit
   endif
enddo
use
retu

收到的鲜花

• ppzlx 于 2012-12-02 19:11 送鲜花  3朵   附言：好文章

注意, seek 要放在do循环的外面~
 

直接用SCAN ENDSCAN 查询即可。

其实, 合乎foxbase规则, 又可以满足楼主要求的, 可用如下:

accept "请输入姓名：" to xm
use zyda
index on 姓名 to xmsy
seek xm
list off rest whil 姓名=xm
use
retu

USE zyda
INDEX ON 姓名 TO indextemp
SET DELETED ON
accept "请输入姓名：" to xm
SCAN
    SEEK xm
    IF FOUND()
       ?姓名
       DELETE
    ENDIF
ENDSCAN
RECALL ALL

我试了一下，还是死循环啊，一直只是找到第一个人，重复的没找到。

哦，新的方法，我再试试

谢谢您，您的办法很好呢，多谢高手指点！！

楼主所要解决的问题是查找重复考生的问题，可以看看下面的程序：
USE zyda
INDEX ON 姓名 TO xm
 do whil not eof()
  xm=姓名
 do whil not eof() and 姓名=xm
   if 姓名=xm
    ？xm
    endif
  skip
  enddo
enddo   

这件事不是很简单的么？对表文件进行姓名字段的索引，然后利用SEEK命令找到第一条符合条件的记录，处理完后再SKIP一下不就行了？直到不符合条件的第一条记录为止。
大致的程序段如下：
USE 表文件
INDEX ON 姓名 TAG XM
GO TOP  &&此处不能用GO 1
SEEK "姓名的具体内容" ORDER XM
IF FOUND()
   XingMing=姓名
   DO WHILE !EOF()
      IF 姓名=XingMing
         ?XingMing
         SKIP
         XingMing=姓名
      ELSE
         EXIT
      ENDIF
   ENDDO
   ?"查找结束！"
ELSE
   ?"没找到！"
ENDIF


[ 本帖最后由 taifu945 于 2012-12-7 11:46 编辑 ]