这是实现查询的代码，但是运行没有反应，底下状态栏中出现“执行被取消”。各位达人帮个忙看一下，问题出在哪里？谢谢了
close all
xm=thisform.text1.Value
use d:\vf\xsjbqkb.dbf

IF .not. EMPTY(xm)

locate for alltrim(姓名)=alltrim(thisform.text1.value)
do while .not. eof()
continu
enddo
cancel

thisform.grid1.refresh
thisform.grid1.recordsource="select * from d:\vf\xsjbqkb where alltrim(姓名)=alltrim(thisform.text1.value)"

else
=MESSAGEBOX("请输入姓名!!!!!",0+48,"系统提示")
RETURN

ENDIF

THISFORM.REFRESH

locate for alltrim(姓名)=alltrim(thisform.text1.value)
do while .not. eof()
continu
enddo
cancel &&&请问这句是干啥的？

cancel语句在帮助文件里解释：
Ends execution of the current Visual FoxPro program file.


原句：
locate for alltrim(姓名)=alltrim(thisform.text1.value) &&干嘛不用found()来判断有没有符合条件的记录呢！

do while .not. eof()
continu
enddo
cancel
直接用Select 完成不就完了嘛？

哈哈,楼上的,越来越有进步了啊