主题：表格形式下加载树高度怎么设置

 参考代码

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.itemheight= 100
        End If
    Next
Next