vb中treeview如何动态添加节点

Question

各位请帮帮忙，请问如何在vb中向treeview中动态添加节点，就是从数据库中读取出数据然后添加到treeview中，分为四级，急用，谢谢

Answer 1

级别不限   采用类似科目代码的编码  只要字段足够长  可以无穷 分级
表结构 
BMBH   BMMC
1      总部
11     市场部
111    市场1部
112    市场2部
12     财务部
13     储运部
131    仓库
132    汽车对
Private Sub RefTREE()
Dim SQL As String
Dim r As New ADODB.Recordset
Dim mNode As Node
Dim ss As String
Dim i As Integer
Dim t As Integer
TreeView1.Nodes.Clear
r.Open "select * from s_tab_bmdw where zt='" & ZT & "' order by bmbh", cn
Do While Not r.EOF
    If Len(Trim(r!BMBH)) = 1 Then
        Set mNode = TreeView1.Nodes.Add
            mNode.Text = Trim(r!BMBH) & " " & Trim(r!bmmc)
            mNode.Key = "r" & Trim(r!BMBH)
            mNode.Image = 2
            mNode.ExpandedImage = 2
    
    Else
        Set mNode = TreeView1.Nodes.Add("r" & Left(Trim(r!BMBH), Len(Trim(r!BMBH)) - 1), tvwChild)
            mNode.Text = Trim(r!BMBH) & " " & Trim(r!bmmc)
            mNode.Key = "r" & Trim(r!BMBH)
            mNode.Image = 3
            mNode.ExpandedImage = 2
            TreeView1.Nodes("r" & Left(Trim(r!BMBH), Len(Trim(r!BMBH)) - 1)).Image = 1
    End If
r.MoveNext
Loop
r.CloseEnd Sub

Answer 2

看看我的资源里面有这方面的应用
地址是http://download.csdn.net/source/558908