VBA treeview添加子节点问题

ahaoge

问题:VBA利用treeview制作会计科目表树形菜单,科目代码和名称来源于单元格,详见文档内说明

山菊花

供参考。

1. Sub showKMB()
   
2.     Dim a1%, j$, Arr()
   
3.     With Sheet1
   
4.         a1 = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         Arr = .Range("a1:b" & a1).Value
   
6.     End With
   
7.     With 科目表.TreeView1
   
8.         .Style = tvwTreelinesPlusMinusPictureText
   
9.         .LineStyle = tvwRootLines
   
10.         .CheckBoxes = False
    
11.         For i = 1 To 5
    
12.             .Nodes.Add , , "_" & i, Array(, "资产类", "负债类", "净资产类", "收入类", "支出类")(i)
    
13.         Next
    
14.         For i = 2 To a1
    
15.             j = "_" & Left(Arr(i, 1), IIf(Len(Arr(i, 1)) = 4, 1, Len(Arr(i, 1)) - 2))
    
16.             .Nodes.Add j, tvwChild, "_" & Arr(i, 1), Range("A" & i) & "_" & Range("B" & i)
    
17.         Next
    
18.     End With
    
19. End Sub
    

复制代码

ahaoge

谢谢版主,搞定了

yhch55

武林高手呀！如何搞定，能否露一二？盼中！

OKJSJSF

正在学树控件，用玄雨清风的方法一个一个节点添加学会了，用蓝色幻想的方法引用表格单元格学会了
Private Sub UserForm_Initialize()
    Dim NodeX As Node   
    Set NodeX = TreeView1.Nodes.Add(, , "课程科目", "课程科目")
    NodeX.BackColor = &HFFFFC0
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "语文", "语文")
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "数学", "数学")
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "外语", "外语")
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "政治", "政治")
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "物理", "物理")
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "化学", "化学")
    Set NodeX = TreeView1.Nodes.Add("课程科目", tvwChild, "生物", "生物")
    Dim i As Long
    For i = 2 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).BackColor = &HFF&
    Next i   
    'TreeView2.ImageList = ImageList1
    Set Nodx = TreeView2.Nodes.Add(, , "总行", "商业银行 网点：")
    Nodx.BackColor = &HFF&
    For X = 2 To [A65536].End(xlUp).Row
        Text = Cells(X, "A")
        Number = Cells(X, "B")
        If Len(Cells(X, "B")) = 1 Then
            Set Nodx = TreeView2.Nodes.Add("总行", tvwChild, "key" & Number, Number & " " & Text)
            Nodx.BackColor = &HFFFF&
        ElseIf Len(Cells(X, "B")) = 3 Then
            Set Nodx = TreeView2.Nodes.Add("key" & Left(Number, 1), tvwChild, "key" & Number, Number & " " & Text)
            Nodx.BackColor = &HFFFF00
        ElseIf Len(Cells(X, "B")) = 5 Then
            Set Nodx = TreeView2.Nodes.Add("key" & Left(Number, 3), tvwChild, "key" & Number, Number & " " & Text)
            Nodx.BackColor = &HFF00FF
       End If
    Next
    Set NodeX = Nothing
End Sub
但我最想学用“常数数组ARRAY”的方法添加节点，不引用表格单元格（不引用数据库数据），直接用代码，如本贴所示，看不懂，好象用到了ARRAY，如果要添加三级节点，根节点，子节点，孙节点，不知怎么用？