主题：是否可设置加载树默认为展开的样式

参考代码

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