主题：如何能将按照两种不同指定数据列生成的目录树合在一起

方法一：加一列表达式，然后把多列合并成一列；

方法二：生成以后，循环每一个节点，把值填上去

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

    nd.Text = nd.DataRow("区号") & "|" & nd.DataRow("邮编")

Next

对拷即可。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim ls As New List(Of Object)
ls.add(trv2.Nodes(0))
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level >= 1 Then
        Dim idx As Integer = nd.level-1
        Dim nnd = ls(idx).Nodes.Add(nd.Name, nd.Text)
        If nd.Nodes.count > 0 Then
            If idx >= ls.count - 1 Then
                ls.add(nnd)
            Else
                ls(idx+1) = nnd
            End If
        End If
    End If
Next