[讨论]查询代码不执行，出现“执行被取消”
这是实现查询的代码，但是运行没有反应，底下状态栏中出现“执行被取消”。各位达人帮个忙看一下，问题出在哪里？谢谢了
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
