以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  只是打开窗口,不执行打开窗口后的代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154687)

--  作者:zhuxinhui
--  发布时间: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,是什么原因不执行呢?

--  作者:有点蓝
--  发布时间:2020/9/23 12:15:00
--  
"凭证"是模式窗口吧,模式窗口是阻塞式的,和messagebox一样,关闭后才会执行后面的代码
--  作者:zhuxinhui
--  发布时间:2020/9/23 13:34:00
--  
想打开窗口后,自动生成单据,这个需要转什么模式比较好
--  作者:有点蓝
--  发布时间:2020/9/23 13:53:00
--  
把代码放到窗口afterload事件即可
--  作者:zhuxinhui
--  发布时间:2020/9/23 14:33:00
--  
哦,这个问题搞了我好几天了,多谢了