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") For Each nd As object In tr.nodes For Each cnd As object In nd.nodes cnd.text = cnd.name & "年" Next If nd.text = "true" Then nd.text = "是" ElseIf nd.text = "false" Then nd.text = "否" End If Next End If Next Next
|