Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim pnd As WinForm.TreeNode = trv.nodes.Add("新节点")
Dim pnds As new List(Of WinForm.TreeNode)
pnds.Add(pnd)
Dim t As Table = Tables("工资摘要")
For Each nd As WinForm.TreeNode In trv.SelectedNode.AllNodes
pnd = pnds(nd.Level-1).nodes.Add(nd.name, nd.text)
Dim fdr1 As DataRow = t.DataTable.find("_Identify = " & nd.tag)
Dim fdr2 As DataRow = t.DataTable.find("_Identify = " & pnd.tag)
If pnds.count <= nd.Level Then
pnds.add(pnd)
Else
pnds(nd.Level) = pnd
For nn As Integer = 2 To t.Cols.count-2
fdr2(t.Cols(nn).Name) = fdr1(t.Cols(nn).Name)
Next
End If
Next
老师，代码应如何修改？
加好友 
发短信
Post By：2016/4/3 22:02:00 [只看该作者]
