只是打开窗口，不执行打开窗口后的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 只是打开窗口，不执行打开窗口后的代码

共有1886人关注过本帖树形打印复制链接主题：只是打开窗口，不执行打开窗口后的代码

zhuxinhui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1754 积分：4560 威望：0 精华：0 注册：2017/11/8 17:37:00

只是打开窗口，不执行打开窗口后的代码 发帖心情

Post By：2020/9/23 12:11:00 [只看该作者]

Dim btn As WinForm.Button = Forms("应收帐款立帐").Controls("Button1") '模拟点击窗口控件
btn.PerformClick()

Forms("凭证").Open()

MessageBox.Show("1")

Dim bt As WinForm.Button = Forms("凭证").Controls("Button") '模拟点击窗口控件
bt.PerformClick()

执行以上代码后：只是打开窗口，不执行打开窗口后的代码，打后凭证窗口后，提示1也没有提示，关闭窗口后才执行提示1，是什么原因不执行呢？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/23 12:15:00 [只看该作者]

"凭证"是模式窗口吧，模式窗口是阻塞式的，和messagebox一样，关闭后才会执行后面的代码

zhuxinhui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1754 积分：4560 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2020/9/23 13:34:00 [只看该作者]

想打开窗口后，自动生成单据，这个需要转什么模式比较好

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/23 13:53:00 [只看该作者]

把代码放到窗口afterload事件即可

zhuxinhui

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1754 积分：4560 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2020/9/23 14:33:00 [只看该作者]

哦，这个问题搞了我好几天了，多谢了

主题：只是打开窗口，不执行打开窗口后的代码