以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  是否可设置加载树默认为展开的样式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106891)
--  作者：mikee
--  发布时间：2017/9/17 19:35:00
--  是否可设置加载树默认为展开的样式
如题， 是否可以设置默认为展开的样式
图片点击可在新窗口打开查看此主题相关图片如下：加载树.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/9/17 20:05:00
--  

参考代码

 

Tables("表A").OpenLoadTree("第一列|第二列")
For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "加载树" Then
            Dim tr = b.controls(0).controls(0).controls("tr")
            tr.Expandall           
        End If
    Next
Next