我现在把查询代码改成:
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那样,但连编后点击 刷新返回 什么都没有了
如图: