【Access小品】先利其器 -- 通用TreeView加载程序

hunrybecky

todaynew兄
我做了一个使用你这个通用TreeView加载树后并显示对应记录的窗体，代码比较冗长，你看看是否可以精简下，或者是否有更好的方法？

hunrybecky

todaynew 发表于 2015-7-29 14:31
两句代码即可：
Private Sub TreeView0_NodeClick(ByVal Node As Object)
    Me.Child1.Form.Filter = ...

我开始也是这么写的，但是发现一个问题，就是单击节点的时候应该显示下级节点才对
如果直接这样写的话只显示的是本级节点。如图


我是希望直接修改原来的程序代码来达到效果，但是对树不了解，怎么修改都实现不了效果。
我下面的代码是可以实现，但是太冗长，而且不是使用 node.tag的，希望修改原来的tag来实现。


我试着替换TreeViewNodeRecursion2中的代码
n.Tag = idFieldName & "=" & rs.Fields(idFieldName).Value
为
n.Tag = ParentidFieldName & "=" & rs.Fields(ParentidFieldName).Value
发现返回的也达不到我的效果
我要的最终效果为（具体看我楼上的例子，只是想更简单点来通过修改TreeViewNodeRecursion2实现）
1.顶级节点显示所有数据
2.最底层节点只显示本层节点数据
3.其他层节点显示下级节点的数据。