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版。请大侠们诊断下

没什么问题

LOCATE for xh=cx
改一下
LOCATE for allt(xh)==cx
还得注意字母大小写

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 ALLTRIM(xh)=cx
IF FOUND()
   thisform.txtXx11.SetFocus
   thisform.refresh
   thisform.Activate
ELSE
   MESSAGEBOX('没找到，请仔细核对所输的报名序号！！！',64,'提示：')
   thisform.text1.SetFocus
ENDIF

按理说，他的LOCATE FOR Xh=Cx没有什么大问题。因为Cx赋值时已经挤压掉了头尾多余空格，而Xh字段即使比它长，但只要所有内容头部没有空格的话，就可以正常使用的。

不学调试问问题，就永远有问不完的问题，回答者也永远在乱猜。

设置断点，将等号前后的变量仔细比较，定能找出原因。

对的，一定要学会“监视”和“跟踪”这两个窗口的基本用法。

4楼已经找出问题所在了：
LOCATE for ALLTRIM(xh)=cx

如果真是4楼所说的问题，那这个案例的原始表的Xh字段数据有问题。原因我已经在5楼解释过了。要么，还有一种特殊情况：输入Cx控件值时，内容的当中不小心嵌入了空格。但从程序上看，有判断该控件内容8位数长度的代码，所以，这种可能性不大。

[ 本帖最后由 taifu945 于 2013-5-6 15:51 编辑 ]