Vb中treeview一次只能添加一个节点啊，怎样才能把我建立好的nodes集合一次添加到

Question

Vb中treeview一次只能添加一个节点啊，怎样才能把我建立好的nodes集合一次添加到
Treeview的某个节点下作为它的子节点啊

Answer 1

loop
一个一个加
没别的方法。

Answer 2

哥们 我也是个菜鸟 我从一本书上看到的一段代码 或许对你有用 抄给你
Private Sub Form_Load()
Dim nodex As Node
Dim i As Integer
TreeView1.Style = tvwPlusPictureText
TreeView1.BorderStyle = ccFixedSingle
Dim a
 a = Array("(01)工程部", "(02)销售部", "(03)财务部", "(04)企划部")
 '填充treeview1控件
 With TreeView1.Nodes
  Set nodex = .Add(, , "R", "吉林省长春市公司", 2)
  For i = 0 To 3
  Set nodex = .Add("R", tvwChild, "C" & i, a(i), 1)
  nodex.EnsureVisible
  Next
  End With
End Sub

Answer 3

循环添加Private Sub Command1_Click()
    Dim nd1 As Node
    
    Set nd1 = TreeView1.Nodes.Add(, , "R", "根")
    Call sub_AddMonth(nd1)
    
End SubPrivate Sub sub_AddMonth(nodRoot As Node)
    Dim nd2 As Node
    Dim i As Integer
    
    For i = 1 To 12
        Set nd2 = TreeView1.Nodes.Add(nodRoot, tvwChild, "K" & Format(i, "00"), i & "月")
        Call sub_AddSn(nd2)
    Next i
    
End SubPrivate Sub sub_AddSn(nodMonth As Node)
    Dim nd3 As Node
    
    strsql = "select * from mytable where month = '" & Mid(nodMonth.Key, 2, 2) & "' "
    rs.open
    
    While Not rs.EOF
        Set nd3 = TreeView1.Nodes.Add(nodMonth, tvwChild, nodMonth.Key & sn, sn)
        rs.movenext
    Wend
    
End Sub