主题：工资管理系统

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上述代码应如何修改才能复制节点时带数据一齐复制？上述代码应如何修改才能复制节点时带数据一齐复制？上述代码应如何修改才能复制节点时带数据一齐复制？