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

todaynew

　　版友三個(gè)太陽(yáng)同志寫(xiě)了一段TreeView加載的程序，程序處理中用On Error Resume Next來(lái)排除已經(jīng)加載的相同數(shù)據(jù)，我對(duì)此做法頗不以為然。不以為然的原因在于容錯(cuò)的處理通常是在除非必要時(shí)當(dāng)可用，對(duì)于簡(jiǎn)單而正常的邏輯，用容錯(cuò)處理方式總不是一個(gè)好習(xí)慣。不過(guò)三個(gè)太陽(yáng)同志希望簡(jiǎn)化代碼的初衷是值得贊賞的。

　　TreeView控件是系統(tǒng)設(shè)計(jì)中最為常見(jiàn)的控件，因?yàn)槠鋸V泛的使用，使得在一個(gè)系統(tǒng)中常常需要處理很多的TreeView數(shù)據(jù)加載的問(wèn)題。TreeView數(shù)據(jù)加載的代碼本身并不復(fù)雜，但寫(xiě)起來(lái)比較繁瑣。究其原因，在于數(shù)據(jù)源與加載代碼耦合度過(guò)高，所以一樹(shù)一程序。由這個(gè)原因出發(fā)我們就會(huì)明白，簡(jiǎn)化TreeView加載的關(guān)鍵，在于數(shù)據(jù)源與子程序之間要降低耦合度。降低耦合度的方法，就是采用注入?yún)��?shù)的方式來(lái)構(gòu)建我們需要的TreeView加載程序。

　　要采取注入?yún)��?shù)的方式，我們首先需要搞明白注入些什么樣的參數(shù)。你可能覺(jué)得這很簡(jiǎn)單嘛，當(dāng)然需要注入各級(jí)節(jié)點(diǎn)需要的數(shù)據(jù)源�？墒菃�(wèn)題的復(fù)雜性在于，每個(gè)TreeView的各級(jí)節(jié)點(diǎn)的數(shù)據(jù)源的規(guī)律并不是恒定的。它們可能來(lái)源于多個(gè)數(shù)據(jù)表，也可能僅僅來(lái)源于一個(gè)表，還可能來(lái)源于數(shù)組、集合等變量。由于這個(gè)復(fù)雜性的存在，就難以用一個(gè)放之四海而皆準(zhǔn)子程序來(lái)處理TreeView的通用加載。我們就需要抽象出一些常見(jiàn)和常用的數(shù)據(jù)源類型，僅對(duì)它們來(lái)編寫(xiě)通用的程序。至于你能夠或者你需要抽象出些什么類型，那是你開(kāi)發(fā)程序的實(shí)際需要所決定的。

　　所謂工欲善其事工欲善其事必先利其器，而利其器的方法是有講究的。這個(gè)講究在于處理的思路和方法要得當(dāng)，得當(dāng)?shù)臉?biāo)準(zhǔn)不主要在于一段代碼的簡(jiǎn)化（如版友三個(gè)太陽(yáng)同志所做的那樣），而更多的在于代碼的復(fù)用性高低。

示例：

視圖：


Office交流網(wǎng)開(kāi)發(fā)的Access專用樹(shù)控件免費(fèi)下載-支持64位
http://mzhfr.cn/book/accesstree/5.html

tmtony

好作品！

leonshi

強(qiáng)者風(fēng)范

roych

開(kāi)始沒(méi)特別留意他的例子，覺(jué)得似乎缺少了展開(kāi)子節(jié)點(diǎn)的做法，便推薦他看看兩個(gè)帖子。
后來(lái)再仔細(xì)一看，他簡(jiǎn)化的代碼似乎存在邏輯錯(cuò)誤。即，子節(jié)點(diǎn)沒(méi)有從父節(jié)點(diǎn)里繼承過(guò)來(lái)，而On Error Resume Next卻偏偏避開(kāi)了這個(gè)錯(cuò)誤，于是便修改代碼后回復(fù)了。
一般來(lái)說(shuō)，這種情況，我比較推薦遞歸算法，寫(xiě)一個(gè)子函數(shù)隨時(shí)調(diào)用即可，沒(méi)必要一次性把所有節(jié)點(diǎn)加載完畢。特別是數(shù)據(jù)較多時(shí)，這可能不是一個(gè)較好的策略。

風(fēng)中漫步

呵呵,耦合無(wú)處不在啊

nncchh

學(xué)習(xí)學(xué)習(xí)，謝謝分享！

nncchh

學(xué)習(xí)學(xué)習(xí)，謝謝分享！

cpxie

學(xué)習(xí)啦  太強(qiáng)大了

hunrybecky

todaynew兄
我做了一個(gè)使用你這個(gè)通用TreeView加載樹(shù)后并顯示對(duì)應(yīng)記錄的窗體，代碼比較冗長(zhǎng)，你看看是否可以精簡(jiǎn)下，或者是否有更好的方法？

todaynew

hunrybecky 發(fā)表于 2015-7-29 01:35
todaynew兄
我做了一個(gè)使用你這個(gè)通用TreeView加載樹(shù)后并顯示對(duì)應(yīng)記錄的窗體，代碼比較冗長(zhǎng)，你看看是否可 ...

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