Dim nd As WinForm.TreeNode = args(0) Dim dt As DataTable = args(1) For Each dr As DataRow In dt.DataRows Dim km As String = dr("科目代码") If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 2 Then Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("科目名称")) Functions.Execute("AddChildren",cd,dt) End
If Next