以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  相同代码,反应不一,没找出原因。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86423)

--  作者:石四
--  发布时间:2016/6/17 9:29:00
--  相同代码,反应不一,没找出原因。

With Forms("公告通知")
            .Open()
            .Controls("Label1").Text = 9
        End With
        Dim btn As WinForm.Button = Forms("公告通知").Controls("Button1")
        btn.PerformClick()

 

这段代码能执行!

 

With Forms("费用管理")
            .Open()
            .Controls("Label31").Text = 9
        End With
        Dim btn As WinForm.Button = Forms("费用管理").Controls("Button3")
        btn.PerformClick()

 

这段只能打开窗口,但调用不了其中的label和button控件,

关闭窗口后,有错误提示:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图00.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图22.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/6/17 9:32:00
--  
你的这个窗口 Forms("费用管理") 是模式窗口,不能是模式窗口,你改成独立
--  作者:石四
--  发布时间:2016/6/17 9:41:00
--  

哦,明白