以下代码：

Private Sub CC()
OpenConn
Dim rs As Recordset
Dim m
Dim SQL
Dim nodes As Node
'TreeView1.LineStyle = tvwTreeLines

 

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from CC", cn, 2, 2
Dim i As Integer
Dim j As Integer
Dim zxs
TreeView1.ImageList = TreeImages
With rs
'RS.Close
  ' Set RS = Nothing

  
    If .RecordCount <> 0 Then
        For j = 0 To 5
            .Close
            .Open "select * from CC", cn, 2, 2
            For i = 1 To .RecordCount
                If .Fields("treerelationship") <> "" Then
                  
                    TreeView1.nodes.Add CStr(.Fields("treerelative")), tvwChild, .Fields("treekey"), .Fields("用户姓名"), CInt(.Fields("treeimgindex"))
                Else
                    TreeView1.nodes.Add , , .Fields("treekey"), .Fields("用户姓名"), CInt(.Fields("treeimgindex"))　'此处提示集合中的关键字不唯一
                End If
               .MoveNext
            Next i
        Next j
    End If
End With

For m = 1 To TreeView1.nodes.Count
TreeView1.nodes(m).Expanded = True '

Next



         
CloseConn      

End Sub



Access数据库中数据如下：
TreeRelative　　TreeRelationship　　TreeKey　　用户姓名　　TreeIMGIndex
 空　　　　　　　　空　　　　　　　　CC　　　　在线用户　　　1
 CC                1                 张三　　　张三　　　　　1


提供源码附件

[ 本帖最后由 xzqsml 于 2010-1-23 11:56 编辑 ]

难道真的没有人回答吗?

懂TreeView控件朋友,能不能写一个类似的代码.
要要求二级目录即可!能从数据库中动态取数更新TreeView内容

Private Sub Form_Load()
OpenConn

Dim rs As Recordset
Dim m
Dim SQL
Dim tvNodes As nodes
Dim node1 As Node
'TreeView1.LineStyle = tvwTreeLines

Set tvNodes = TreeView1.nodes
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from CC", cn, 2, 2
Dim i As Integer
Dim j As Integer

With rs
    .MoveFirst
    For i = 1 To .RecordCount
        If IsNull(.Fields("TreeRelationship")) Or 0 = .Fields("TreeRelationship") Then  'TreeRelationshipConstants
            Set node1 = tvNodes.Add(, tvwLast, , .Fields("用户姓名"), CInt(.Fields("TreeIMGIndex")))
        Else
            Set node1 = tvNodes.Add(CInt(.Fields("TreeRelationship")), tvwChild, , .Fields("用户姓名"), CInt(.Fields("TreeIMGIndex")))
        End If
       .MoveNext
    Next i
End With

For m = 1 To TreeView1.nodes.Count
    TreeView1.nodes(m).Expanded = True '
'TreeView1.ShowHint = False
Next

CloseConn
End Sub

         Set node1 = tvNodes.Add(CInt(.Fields("TreeRelationship")), tvwChild, , .Fields("用户姓名"), CInt(.Fields("TreeIMGIndex")))
还是不对呀

Private Sub Form_Load()
OpenConn

Dim rs As Recordset
Dim m
Dim SQL
Dim tvNodes As Nodes
Dim node1 As Node
'TreeView1.LineStyle = tvwTreeLines

Set tvNodes = TreeView1.Nodes
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from CC", cn, 2, 2
Dim i As Integer
Dim j As Integer

With rs
    .MoveFirst
    For i = 1 To .RecordCount
        If IsNull(.Fields("TreeRelative")) Or vbNullString = .Fields("TreeRelative") Then 'TreeRelationshipConstants
            Set node1 = tvNodes.Add(, tvwLast, .Fields("TreeKey"), .Fields("用户姓名"), CInt(.Fields("TreeIMGIndex")))
        Else
            Set node1 = tvNodes.Add(CStr(.Fields("TreeRelative")), tvwChild, , .Fields("用户姓名"), CInt(.Fields("TreeIMGIndex")))
        End If
       .MoveNext
    Next i
End With

For m = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(m).Expanded = True '
'TreeView1.ShowHint = False
Next

CloseConn
End Sub

提示,对象关闭时不允许操作,错在哪呢??

这个好像和我现在碰到的问题一样：对象关闭时，不允许操作