Dim RowBase As C1FlexGrid.Row = args(0).Row Dim Node As C1FlexGrid.Node node=RowBase.Node For Each dr As DataRow In DataTables("项目节点明细").Select("节点代号 like '" & node.Row("节点代号") & ".%'") If dr("节点代号")<>node.Row("节点代号") AndAlso dr("节点代号").split(".").length=node.Row("节点代号").split(".").length+1 Then Dim flagin As Boolean = False Dim jm As String = node.Row("节点级别") For Each cnd As object In RowBase.Node.Nodes If cnd.Row("节点代号") = dr("节点代号") Then flagin = True Exit For End If Next If flagin = False Then Dim nNode = TblBase.Rows.InsertNode(RowBase.Node.Row.Index + RowBase.Node.Nodes.Length + 1, RowBase.Node.Level + 1) For Each c As Col In Tables("节点进度表").Cols nNode.Row(c.name) = dr(c.name) Next Functions.Execute("loop", nnode) End If End If Next
|