Henry手記－VB.NET中動態載入Treeview節點（一）<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

　　　　　　　　　　　　　　　　　韓睿(2003.4.13)

Treeview是一個重要的控制元件，無論是在VB.NET，C#還是Delphi、VC++等各種語言中，都充當了導航器的作用。在實際工作中，很多情況下需要將Treeview與資料庫進行連線，以填充其節點。然而，往往由於資料庫資料眾多，一次性灌入所有的根節點與子節點，會耗用大量的起始等待時間。解決的方案，應該是動態載入節點，起始的時候，只加載根節點，在點選某個根節點時，才載入其子節點，再點選某個子節點時，才載入子節點的子節點，以此類推，這樣的處理方法可以達到提高工作效率，節省訪問時間的妙用。

本文僅以VB.NET為例，說明此方法的使用。其它的程式語言，可以進行仿效，或者給筆者寫信。

首先應該有個資料庫，用以儲存資料結構與資料。本文需要的資料庫為一個Project.mdb。其結構為（為清楚起見，以漢字欄位為例，實際應用時，請自行更改）：

表名：根節點

表名：第一級子節點

表名：第二級子節點

三個表的關係已經很清楚了，在此不再羅列。表內填充的資料為：

根節點編號為1、2、3這樣類推，其名稱也就為根節點1、根節點2、根節點3

第一級子節點編號規則為：根節點1之下的子節點編號為11、12、13等以此類推，根節點2之下的子節點編號為21、22……子節點名稱為：子節點1、子節點2……

第二級子節點編號規則為：第一級子節點ij之下的第二級子節點的編號為ij1、ij2……，其名稱為統一的：孫節點1、孫節點2……

現在讓我們簡單分析一下treeview的結構（筆者準備在另文專門剖析一下Treeview的結構，以方便有興趣的網友進行高階應用）

Treeview是由節點TreeNode組成的，第一級的稱之為根節點TreeRoot，在根節點之下一級的稱之為某個根節點的子節點TreeLeaf，某個子節點之下一級的子節點就稱為該子節點的子節點。第個節點有兩個標識方式，一個是它的Text，即顯示出來的內容；另一個是它的Tag屬性，一般用唯一標識碼對其進行標識，以用於在使用時對節點的識別。在本文中，也主要用Text屬性來顯示節點的名稱欄位，用Tag屬性來顯示節點的編號屬性。（節點編號被設為主鍵，也就是唯一的標識了）

1.載入根節點

好了，我們該開始在VB.NET中進行演練了！第一步，當然是看看怎麼在窗體起始的時候載入根節點：

'定義公用變數

Dim myconnection As New OleDb.OleDbConnection()

Dim MyAdapater As New OleDb.OleDbDataAdapter()

Dim mycommand As New OleDb.OleDbCommand()

Dim ds As New DataSet()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'載入根節點表至treeview中，作為第一級

myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/project.mdb"'資料庫連線請自行更換

mycommand.CommandText = "SELECT 根節點編號,根節點名稱 FROM 根節點"

mycommand.Connection = myconnection

Try

myconnection.Close()

myconnection.Open()

Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader

TreeView1.Nodes.Clear()

While mysqlreader.Read()

Dim tree_root As New TreeNode()

tree_root.Tag = mysqlreader.GetString(0) '把編號放入tag中

tree_root.Text = mysqlreader.GetString(1) '樹上顯示的是根節點名稱

'請根據你資料庫欄位的型別來決定是否用getstring或其它型別

TreeView1.Nodes.Add(tree_root)

End While

Catch ex As Exception

MessageBox.Show(ex.ToString, "資料表根節點載入錯誤", vbOKOnly)

Finally

myconnection.Close()

End Try

TreeView1.ExpandAll()

TreeView1.Select()

End Sub

好了，現在執行一下程式，你可以看到如圖1所示的起始介面

----

宣告：本文版權與解釋權歸韓睿所有，如需轉載，請保留完整的內容及此宣告。

QQ: 18349592