筛选后的窗口表，能不能根据[诉讼地位]列值的不同，选择不同的列生成同一个目录树；

另外，加黑行的代码也不对，请老师看一下，谢谢！如图：

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")

Dim dr As Row In Tables("窗口1_Table1").Rows

ElseIf dr("诉讼地位") = "被告"
    tv.BuildTree("庭审笔录", "诉讼地位|诉讼参加人|法定代表人|住所地")
End If

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

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

请老师帮忙改一下按钮代码，谢谢！

Dim tr As WinForm.TreeView
tr =e.Form.Controls("TreeView1")
For Each dr As Row In Tables("窗口1_Table1").Rows
    If dr("诉讼地位") = "原告" Then
        tr.BuildTree("庭审笔录", "诉讼地位|诉讼参加人|性别|民族|出生日期|住所地")
    End If
Next
\'----------------------------------------请老师修改下面的代码
For Each nd As WinForm.TreeNode In tr.AllNodes                                   \'遍历所有节点
    If nd.Level = 0 AndAlso nd.text = "委托代理人" Then                            \'如果根节点的标题为"委托代理人"
        Dim dr As  DataRow
        dr = DataTables("庭审笔录").Find("诉讼参加人 = \'" & nd(1).text & "\'")     \'到"庭审笔录"去找第二级节点名称
        If dr IsNot  Nothing  Then                                             \'如果找到了
           
            tr.SelectedNode = nd（1）                                        \'新增一个第三级子节点,节点的text的值="单位"列的值           

            nd（2）.text = dr("单位")
           
            tr.SelectedNode = nd                                                \'再新增一个第四级子节点,节点的text的值="职务"列的值           

            nd（3）.text = dr("职务")
           
            nd.ExpandAll()
        End If
    End If
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试生成目录树.foxdb

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