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

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

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

 

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

 

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

If dr("诉讼地位") = "原告"
    tv.BuildTree("庭审笔录", "诉讼地位|诉讼参加人|性别|民族|出生日期")

 

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

 

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

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

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

没看懂要做什么？文字详细描述一下

就是在目录树的“委托代理人”根节点下，插入一个三级节点和四级节点，名称分别为数据表的[职务]、[单位]的列值。

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