在表单上查询:
表1:


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


我查询完后,想通过点击刷返回,就能回到原来的样子,即表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那样,但连编成EXE文件后点击 刷新返回 什么都没有了


请问:如何解决?

刷新返回 代码:
thisform.Text1.Value=""  &&这句是清空文本框的意思
set filter to  &&增加此语句
thisform.Grid1.recordsource='信息表'
thisform.Grid1.Refresh
THISFORM.Refresh

楼主 你按1楼的方法做 成功了没有