请问如何读取treeview的所有子项目

Question

请问如何读取treeview的所有子项目

Answer 1

遍历treeview的所有节点
http://topic.csdn.net/t/20040824/21/3306061.html

Answer 2

数据库books.mdb中两个表，1、作者（第一层节点数据），2、内容（第二层节点数据）。“内容”表中的字段“图书名称”与“作者”表中的字段“图书名称”相同，并相关联。代码参考如下：Private Sub Form_Load() 
    Call Tree_change  '调用自定义过程，用于显示TreeView控件中的数据信息
End SubPrivate Sub Tree_change() '自定义一个过程，功能：用于显示TreeView控件中的数据
  Dim key, Text, StrTemp As String '声明变量
   con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\books.mdb;Persist Security Info=False"
   rs.Open "select * from 作者", con, adOpenKeyset, adLockOptimistic
      If rs.RecordCount > 0 Then
        rs.MoveFirst
          Do While rs.EOF = False 
            key = Trim(rs.Fields("图书编号"))
            Text = rs.Fields("图书名称")
            Relative = Trim(rs.Fields("图书编号"))
            StrTemp = rs.Fields("图书名称")
            Set Node1 = TreeView1.Nodes.Add(, , key, Text, 1)   '给第1层节点赋值
                  rs1.Open "select * from 内容", con, adOpenKeyset, adLockOptimistic
                            If rs1.RecordCount > 0 Then
                               rs1.MoveFirst
                              rs1.Find "图书名称='" & StrTemp & "'"
                                Do While rs1.EOF = False        '循环读取第2层节点中的数据信息
                                Text = rs1.Fields("目录名称")
                                Set Node2 = TreeView1.Nodes.Add(Relative, tvwChild, , Text, 2)   '给第2层节点赋值
                                rs1.MoveNext
                               rs1.Find "图书名称='" & StrTemp & "'"
                                Loop
                                rs1.Close
                                Set rs1 = Nothing
                            Else
                            End If
            rs.MoveNext
          Loop
          rs.Close
          Set rs = Nothing
     Else
     End If
 con.Close
 Set con = Nothing
End Sub

Answer 3

声明部分：代码：Private con As New ADODB.Connection '声明数据库连接对象
Private rs  As New ADODB.Recordset '声明数据库记录集对象
Private rs1  As New ADODB.Recordset