主题：[求助]这种目录树形式如何实现

此主题相关图片如下：snap1.jpg


目录树前面的数据是一列的，后面的内容是另一列的，也就是说如何将两列的内容作为一个目录树节点显示
如用下图中的数据生成如上图的目录树

此主题相关图片如下：snap1.jpg

给个项目例子，这个难不倒大家的····

自己一个一个节点加就行

他爹，没搞懂哦，如何一个一个的加哟，我要的是用两列中的内容作为一个节点，看火帮助没搞懂

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each r  As Row In Tables("XXX").Rows
    Dim v As string = r("yyy") &  r("xxx")
   tr.Nodes.add(v,v)
Next

If Tables("列类型").Cols.Contains("合成") Then
Else
DataTables("列类型").DataCols.Add("合成", GetType(String), "[列类型] + ' ' + [SQL]")
End If
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateDataTree("列类型","合成")

还可以这样：
Forms("窗口1").Controls("TreeView1").Nodes.Clear
If Tables("表A").Cols.Contains("mlsh") Then
    for each dr as DataRow in DataTables("表A").DataRows
        dr("mlsh") = "【" & dr("第一列") & "】" & dr("第二列")
    next
    Forms("窗口1").Controls("TreeView1").BuildDataTree("表A", "","mlsh")
else
    DataTables("表A").DataCols.Add("mlsh", GetType(string),50)
    for each dr as DataRow in DataTables("表A").DataRows
        dr("mlsh") = "【" & dr("第一列") & "】" & dr("第二列")
    next
    Forms("窗口1").Controls("TreeView1").BuildDataTree("表A", "","mlsh")
End If

谢谢几位！！！