在表单上查询:
表1:

输入无名,得查询结果:
表2:

我查询完后,想通过点击刷返回,就能回到原来的样子,即表1样子...我的代码如下:
thisform.Text1.value=""
thisform.Grid1.recordsource='信息表'
thisform.grid1.refresh
Thisform.Refresh
结果:
在项目管理器里运行可以,点击 刷新返回 能成功返回到表1那样,但连编后点击 刷新返回 无反应
请问:如何解决?

我现在把查询代码改成:
Thisform.LockScreen=.T.
SELECT 船员信息表
set filter to 姓名 = ALLTRIM(thisform.text1.Value)
THISFORM.Refresh
Thisform.LockScreen=.F.
刷新返回代码改成:
thisform.Text1.Value=""  &&这句是清空文本框的意思
thisform.Grid1.recordsource='船员信息表'
thisform.Grid1.Refresh
THISFORM.Refresh
还是老问题:在项目管理器里运行可以,点击 刷新返回 能成功返回到表1那样,但连编后点击 刷新返回 什么都没有了
如图: