- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]数据表生成目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116386)
-- 发布时间：2018/3/23 16:51:00
-- [求助]数据表生成目录树
筛选后的窗口表，能不能根据[诉讼地位]列值的不同，选择不同的列生成同一个目录树；
另外，加黑行的代码也不对，请老师看一下，谢谢！如图：
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
-- 发布时间：2018/3/23 17:28:00
--
1、建议生成两个目录树吧，这样简单一些。
2、如果确实要用一个目录树，就比较麻烦，参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=115294
-- 发布时间：2018/3/24 12:40:00
--
请老师帮忙改一下按钮代码，谢谢！
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
-- 发布时间：2018/3/24 14:43:00
--
没看懂要做什么？文字详细描述一下
-- 发布时间：2018/3/25 16:45:00
--
就是在目录树的“委托代理人”根节点下，插入一个三级节点和四级节点，名称分别为数据表的[职务]、[单位]的列值。
-- 发布时间：2018/3/25 22:06:00
--
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