关于TreeView控件

Question

请为如何将数据库用户表中的用户名导入倒一个TreeView的节点上，最好有代码。我使用
While rsTemp.EOF = False
        sUserName(i) = rsTemp!用户名
        Set nodRoot = tvUserList.Nodes.Add("Root", 4, sUserName(i), sUserName(i), 2, 4)
        i = i + 1
        rsTemp.MoveNext
    Wend
显示无效的关键字

Answer 1

'装载树
Private Sub LoadTree()
    Dim i As Integer
    
    With mApp.UserInfo
        If Not .openall Then Exit Sub
        For i = 1 To .mains.Count
            Call TreeView_NodeSetValue(tvwList, "r" & .mains.Item(i).Code, .mains.Item(i).Name, , "r", 6, , .mains.Item(i), True)
        Next i
    End With
    
    Set mApp.UserInfo = Nothing
End Sub以下是一个公用的方法
'根据指定的行、列设置TreeView的值
Public Sub TreeView_NodeSetValue(tvw As TreeView, ByVal vKey As String, ByVal vText As String, Optional _
        ByVal vOldKey As String = "", Optional ByVal vRelation As String = "r", Optional ByVal _
        vImg As Variant = 1, Optional vSelectImg As Integer = 0, Optional ByVal vTag As Variant = Nothing, _
        Optional ByVal bExpande As Boolean = False)
    On Error GoTo ErrH
    
    Dim xNode As Node, i As Integer
    With tvw
        If vOldKey = "" Then
            If .ImageList Is Nothing Then
                Set xNode = .Nodes.Add(vRelation, tvwChild, vKey, vText)
            Else
                Set xNode = .Nodes.Add(vRelation, tvwChild, vKey, vText, vImg, vSelectImg)
            End If
        Else
            Set xNode = .Nodes(vOldKey)
            xNode.Key = vKey
            xNode.Text = vText
            xNode.Image = vImg
            xNode.SelectedImage = vSelectImg
        End If
        
        If IsObject(vTag) Then
            Set xNode.Tag = vTag
        Else
            xNode.Tag = vTag
        End If
        xNode.Expanded = bExpande
        If bExpande Then Call xNode.EnsureVisible
    End With
    Exit Sub
    
ErrH:
    MsgBox "结点装载失败！", vbOKOnly Or vbInformation, "信息"
End Sub