Dim RowBase As C1FlexGrid.Row = args(0).Row Dim Node As C1FlexGrid.Node node=RowBase.Node For Each dr As DataRow In DataTables("test2").Select("父级号='" & node.Row("子级号") & "'")
Dim nNode = TblBase.Rows.InsertNode(tblbase.Rows.count, RowBase.Node.Level + 1) For Each c As Col In Tables("t").Cols nNode.Row(c.name) = dr(c.name) Next Functions.Execute("loop", nnode)