thisform.refresh
xh=alltrim(thisform.text1.value)
xm=alltrim(thisform.text2.value)
select 学生个人信息表
go top
set filter to xh=alltrim(学号) .and. xm=alltrim(姓名)
if found()==.f.
 messagebox("查无此人",16,"失败")
 else
 browse
 endif
thisform.refresh
代码如上，为什么每次查询都会弹出“查无此人”呢？不管学学号和姓名对不对得上！！！如果代码是下面的话又会出现查找到空白表thisform.refresh
xh=alltrim(thisform.text1.value)
xm=alltrim(thisform.text2.value)
select 学生个人信息表
go top
set filter to xh=alltrim(学号) .and. xm=alltrim(姓名)
 browse
 thisform.refresh
求指点

set filter to之后，必须移动一下记录指针，比如goto top。然后，不是用found()判断的，你这样found()当然是.f.了，所以总是落在那个代码段上，显示“找不到”。found()只用于locate和seek搜索指令，set filter to无用。goto top之后，直接browse就是了。如果要判断是否空，在goto top之后判断eof()是否为.t.。

[ 本帖最后由 TonyDeng 于 2013-3-17 15:11 编辑 ]

我修改了一下代码如下就可以了，谢谢
thisform.refresh
xh=alltrim(thisform.text1.value)
xm=alltrim(thisform.text2.value)
select 学生个人信息表
go top
set filter to xh=alltrim(学号) .and. xm=alltrim(姓名)
go top
if eof()=.t.
 messagebox("查无此人",16,"失败")
 else
 browse
 endif
thisform.refresh
我还有个问题就是我每次运行表单时，原来的文本框却都还有之前输入的数据，如何让我每次运行表单时都刷新一遍变成空的文本框呢？thisform.refresh
这句代码都没有用的么？

给文本框的value赋空值。不要给文本框的ControlSource绑定数据源，那样必定会显示数据源当前的数据，用普通无绑定的文本框即可。

thisform.refresh
thisform.text1.value=""
thisform.text2.value=""

我text1有值啊就是xh,text2也有值是xm,不过刷新后没有重新把他们的值清空所以还是之前的数据，按照楼下的在最后加上赋空值就好了，谢谢你们啦

在最后加了那两句可以了，谢谢咯

建议楼主用SQL-SELECT命令查询个人信息

select * from TABNAME WHERE ALLTRIM(姓名)==ALLTRIM(THISFORM.TEXT1.VALUE) AND ALLTRIM(学号)==ALLTRIM(THISFORM.TEXT2.VALUE)
IF _TALLY>0
  *查到信息的代码
ELSE
   =MESSAGEBOX([未查到姓名为：]+ALLTRIM(THISFORM.TEXT1.VALUE)+[ 学号为：]+ALLTRIM(THISFORM.TEXT2.VALUE)+[ 的信息])
ENDIF

[ 本帖最后由 bccn201203 于 2013-3-17 16:07 编辑 ]

这个语句我还不是很懂运用，不过要查询成绩存储在一个临时表中并能输出打印可以用这个语句么？是不是都要转成报表才能输出打印呢？

不明白的地方，可以看VFP的帮助文件，帮助文件是最好的老师。