a=
b=
c=thisform.text1.value
tj=alltri("loca for "+alltri(a)+alltri(b)+"'"+alltri(c)+"'")
&tj
conti
     if eof()
        messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
     else
        go recno()
     endif
thisform.grid1.setfocus
return
例如：
为 账号
为 =
thisform.text1.value 为 123243423
运行结果为:"数据库中不存在您所要查询的记录"，其实数据库中有此记录。
如果换成
为 姓名
为 =
thisform.text1.value 为 陈量
运行结果正确。
不知为何？到底代码哪有问题？

改成下列代码就可以了
a=
b=
c=thisform.text1.value
tj=alltri(alltri(a)+alltri(b)+"'"+alltri(c)+"'")
sele * from hd where &tj into curs asd
thisform.grid1.recordsource="asd"
thisform.grid1.setfocus
return

那是自然。

非常感谢sdta，给了我不少帮助。