如何在增加节点，我想把图中总司办放在资产情况中，使用情况根据表中的使用情况列筛选，请老师指点。
此主题相关图片如下：qq截图20190118170123.jpg
afterload 中代码
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("固定资产明细表", "使用单位|使用部门|资产分类")
trv.Nodes.Insert("显示所有行",0)
trv.Nodes.Add("资产情况")
trv.Nodes.Add("使用情况")
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[使用单位] = '" & dr("使用单位") & "'"
Case 1
Filter = "[使用单位] = '" & dr("使用单位") & "' And [使用部门] = '" & dr("使用部门") & "'"
Case 2
Filter = "[使用单位] = '" & dr("使用单位") & "' And [使用部门] = '" & dr("使用部门") & "' And [资产分类] = '" & dr("资产分类") & "'"
End Select
End If
Tables("固定资产明细表").Filter = Filter
[此贴子已经被作者于2019/1/18 17:06:48编辑过]
加好友 
发短信
Post By：2019/1/18 17:06:00 [只看该作者]
