LOCAL cx
cx=''
cx=ALLTRIM(thisform.text1.Value)

 IF EMPTY(cx) or !LEN(cx)=8
   MESSAGEBOX('请仔细核对所输的报名序号！！！',64,'提示：')
   RETURN

 ENDIF

 SELECT bmk

 GO top

 LOCATE for xh=cx

 IF FOUND()
   thisform.txtXx11.SetFocus
   thisform.refresh
   thisform.Activate

 ELSE
   MESSAGEBOX('没找到，请仔细核对所输的报名序号！！！',64,'提示：')
   thisform.text1.SetFocus

 ENDIF


以上是查找按钮下的代码


 我输入一个明明存在的报名序号，点查找，就出现一个“没找到，请仔细核对所输的报名序号！！！”的提示，关了360也一样

环境为：VFP8.0 + WIN7 Home版。请大侠们诊断下

1、感谢各位朋友的关注
2、不好意思，致歉——发贴时漏写一句。我办公室电脑是XP系统，那上面做的，运行完全正常。家里是WIN7运行不正常，故问之，XH字段是8位的，代码是完全正确的。只是家里的电脑上不行。
3、我的猜想是WIN7对VFP的兼容性问题。但不知如何解决

TO: 15楼taifu945

真的，在WIN7上重建一下索引，就完全正常了。