主题：[求助]数据表生成目录树

1、建议生成两个目录树吧，这样简单一些。

2、如果确实要用一个目录树，就比较麻烦，参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=115294

Dim tr As WinForm.TreeView
tr =e.Form.Controls("TreeView1")
tr.BuildTree("庭审笔录", "诉讼地位|诉讼参加人|性别|民族|出生日期|住所地")

'----------------------------------------请老师修改下面的代码
For Each nd As WinForm.TreeNode In tr.AllNodes             '遍历所有节点
    If nd.Level = 1 AndAlso nd.parentNode.text = "委托代理人" Then    '如果根节点的标题为"委托代理人"
        Dim dr As  DataRow
        dr = DataTables("庭审笔录").Find("诉讼参加人 = '" & nd.text & "'")     '到"庭审笔录"去找第二级节点名称
        If dr IsNot  Nothing  Then                                             '如果找到了
            Dim cnd = nd.nodes.Add(dr("单位"))
            Dim ccnd = cnd.nodes.Add(dr("职务"))
        End If
       
        nd.ExpandAll()
        nd.parentNode.ExpandAll()
    End If
Next