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

hunrybecky · 发表于 2015-7-29 17:06:45

本帖最后由 hunrybecky 于 2015-7-29 17:23 编辑

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.其他层节点显示下级节点的数据。

todaynew · 发表于 2015-7-31 08:55:01

本帖最后由 todaynew 于 2015-7-31 09:09 编辑

hunrybecky 发表于 2015-7-29 17:06
我开始也是这么写的，但是发现一个问题，就是单击节点的时候应该显示下级节点才对
如果直接这样写的话只 ...

N.tag 中只改等号左侧，右侧不变嘛。
可以加一个形参，以满足两种你 n.tag 的计算。
顶级节点的tag写作“true“可筛选全部数据。

关于最低层节点的需求违背思维逻辑。 (最后两层节点筛选结果一致，让人无法理解 )

asklove · 发表于 2015-7-31 16:30:44

收藏了!

ithink2012 · 发表于 2015-9-23 18:03:41

快速学习

简约猫咪 · 发表于 2015-9-24 21:08:01

进行学习

WFH6898 · 发表于 2015-11-17 10:43:10

强者啊

fjh · 发表于 2016-3-17 16:07:36

学习

yhl091122 · 发表于 2016-4-4 15:16:09

学习

pyh512 · 发表于 2016-5-19 21:24:29

记得印象在哪见过这东东，后面我想找，却怎么也找不到，今天有幸又在这里看到了

谢谢了

李力军2 · 发表于 2016-7-30 15:12:18

加一分

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【Access小品】先利其器 -- 通用TreeView加载程序

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)