我的这段代码是查找相对应的值。这么编译了老是错误。
麻烦帮我看下。

set exac off
if txt=ALLTRIM(thisform.text4.value) then
   continue
   thisform.refresh
else
   txt=alltrim(val(thisform.text4.value))
   go top
   loca for 编号=alltrim(thisform.text4.value)
   endif
if found()=.t.
   thisform.refresh
   else
  messagebox('没有找到符合条件的记录！',16,'系统提示')
   go top
   thisform.refresh
   endif

ALLTRIM只能对字符型数据进行操作
而txt=alltrim(val(thisform.text4.value))，明显是错误的。

这是什么意思？

这样是什么原因？

txt=alltrim(thisform.text4.value)
loca for alltrim(编号)==txt
if found()=.f.
   messagebox('没有找到符合条件的记录！',16,'系统提示')
   go top
endif
thisform.refresh

还是提示：文件必须以独占方式打开。。
为什么会出现这种情况？

打开表的时候，use 表名 excl

我是点返回的时候它显示必须以独占方式打开的。。
我的返回语句是
DO FORM e:\vfp\主菜单.scx

谢谢版主们的教导。
现在可以了。。