参考代码
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 NextNext