专家坐堂-是否可设置加载树默认为展开的样式Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  是否可设置加载树默认为展开的样式  (http://foxtable.net/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