以文本方式查看主题

-  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=96248)
--  作者：feng1999
--  发布时间：2017/2/16 11:41:00
--  [求助]窗口代码错误
老师好：这段代码在AfterLoad事件中为什么不能正确执行？谢谢
Dim bar1 As WinForm.NavBar = e.sender
Select Case bar1.SelectedPage.ButtonText
    Case "基础数据查询"
        Dim tr As WinForm.TreeView
        tr = Forms("共有窗口").Controls("TreeView1")
        tr.Nodes(0).ExpandAll()
    Case "审核报告"
        Dim tr As WinForm.TreeView
        tr = Forms("共有窗口").Controls("TreeView2")
        tr.Nodes(0).ExpandAll()
        End Select
--  作者：有点色
--  发布时间：2017/2/16 12:05:00
--  

 这段代码，就不是写在AfterLoad事件的。

 

 你可以直接写

 

Dim tr As WinForm.TreeView

tr = Forms("共有窗口").Controls("TreeView1")
tr.Nodes(0).ExpandAll()