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

todaynew

　　版友三个太阳同志写了一段TreeView加载的程序，程序处理中用On Error Resume Next来排除已经加载的相同数据，我对此做法颇不以为然。不以为然的原因在于容错的处理通常是在除非必要时当可用，对于简单而正常的逻辑，用容错处理方式总不是一个好习惯。不过三个太阳同志希望简化代码的初衷是值得赞赏的。

　　TreeView控件是系统设计中最为常见的控件，因为其广泛的使用，使得在一个系统中常常需要处理很多的TreeView数据加载的问题。TreeView数据加载的代码本身并不复杂，但写起来比较繁琐。究其原因，在于数据源与加载代码耦合度过高，所以一树一程序。由这个原因出发我们就会明白，简化TreeView加载的关键，在于数据源与子程序之间要降低耦合度。降低耦合度的方法，就是采用注入参数的方式来构建我们需要的TreeView加载程序。

　　要采取注入参数的方式，我们首先需要搞明白注入些什么样的参数。你可能觉得这很简单嘛，当然需要注入各级节点需要的数据源。可是问题的复杂性在于，每个TreeView的各级节点的数据源的规律并不是恒定的。它们可能来源于多个数据表，也可能仅仅来源于一个表，还可能来源于数组、集合等变量。由于这个复杂性的存在，就难以用一个放之四海而皆准子程序来处理TreeView的通用加载。我们就需要抽象出一些常见和常用的数据源类型，仅对它们来编写通用的程序。至于你能够或者你需要抽象出些什么类型，那是你开发程序的实际需要所决定的。

　　所谓工欲善其事工欲善其事必先利其器，而利其器的方法是有讲究的。这个讲究在于处理的思路和方法要得当，得当的标准不主要在于一段代码的简化（如版友三个太阳同志所做的那样），而更多的在于代码的复用性高低。

示例：

视图：


Office交流网开发的Access专用树控件免费下载-支持64位
http://www.office-cn.net/book/accesstree/5.html

tmtony

好作品！

leonshi

强者风范

roych

开始没特别留意他的例子，觉得似乎缺少了展开子节点的做法，便推荐他看看两个帖子。
后来再仔细一看，他简化的代码似乎存在逻辑错误。即，子节点没有从父节点里继承过来，而On Error Resume Next却偏偏避开了这个错误，于是便修改代码后回复了。
一般来说，这种情况，我比较推荐递归算法，写一个子函数随时调用即可，没必要一次性把所有节点加载完毕。特别是数据较多时，这可能不是一个较好的策略。

风中漫步

呵呵,耦合无处不在啊

nncchh

学习学习，谢谢分享！

nncchh

学习学习，谢谢分享！

cpxie

学习啦  太强大了

hunrybecky

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

todaynew

hunrybecky 发表于 2015-7-29 01:35
todaynew兄
我做了一个使用你这个通用TreeView加载树后并显示对应记录的窗体，代码比较冗长，你看看是否可 ...

两句代码即可：
Private Sub TreeView0_NodeClick(ByVal Node As Object)
    Me.Child1.Form.Filter = Node.Tag
    Me.Child1.Form.FilterOn = True
End Sub