在复选框的inti事件中添加下面的代码：
&&use data\用户数据表
locate for allt(用户名)=allt(thisform.txt用户名.value) and allt(密码)=allt(thisform.txt密码.value) and allt(用户类型)=allt(thisform.txt用户类型.value) &&and allt(批准)==allt("T")
if found()==.T.
   if allt(批准)==allt("T")
      thisform.check1.value=1
   else
      thisform.check1.value=0
      messagebox("该用户未获得批准，是否现在获得批准？",64,"系统提示")
   endif
endif


为什么一运行，在对表中数据定位显示表中数据时，复选框一直被选中？批准是字符型

if found()循环跳不出来了。
不满足条件时，用 Exit 跳出

可是我在if found（）里面还有一条if语句啊。是不是在别的事件添加代码？

thisform.check1.value = 0

if found()==.T.
   if allt(批准)==allt("T")
      thisform.check1.value=1
   else
      thisform.check1.value=0
      messagebox("该用户未获得批准，是否现在获得批准？",64,"系统提示")
   endif
else
thisform.check1.value = 0
endif