treeview????的问题？？？

Question

表：
  tbAAA
  id     Name
  001   AAAAA
  002   BBBBB
  003   CCCCC
  004   DDDDD
  005   EEEEE怎么把它显示在treeview中 
显示的形式如
   ---AAAAA
  ---BBBBB
  --CCCCC
  ---DDDDD
  ---EEEEE

Answer 1

    '建立数据库连接
    Dim conn As New ADODB.Connection
    conn.open "…………"
    
    '查询tbAAA表
    Dim rs As New ADODB.Recordset
    rs.Open "select id,name from tbAAA", conn, adOpenKeyset, adLockReadOnly    '添加到Treeview中
    While Not rs.EOF
        Dim mNode As Node
        Set mNode = TreeView1.Nodes.Add
        With mNode
            .Text = rs.Fields("name")
            .Key = "n" & rs.Fields("id")
        End With
        Set mNode = Nothing
    Wend
    rs.Close
    Set rs = Nothing
    
    '释放数据库连接
    conn.Close
    Set conn = Nothing

Answer 2

谢谢楼上的问答为什么提示  .Key = "n" & rs.Fields("id")   说key不是唯一哦
我在数据库中这列的字段都是唯一的哦？？

Answer 3

谢谢楼上的问答为什么提示  .Key = "n" & rs.Fields("id")   说key不是唯一哦
我在数据库中这列的字段都是唯一的哦？？

Answer 4

你确定这个是唯一的，你的primary key是id列？
断点调试下看看

Answer 5

  Do While Not rs.EOF
    Set nodX = TreeView1.Nodes.Add(, , , rs!name, 1)
    rs.MoveNext
  Loop

Answer 6

你是不是放到Click事件中，连续点了两下啊，或者别的事件，连续触发两次，在之前加上 TreeView1.Nodes.Clear
在1楼代码上加一句'建立数据库连接
    Dim conn As New ADODB.Connection
    conn.open "…………"
    
    '查询tbAAA表
    Dim rs As New ADODB.Recordset
    rs.Open "select id,name from tbAAA", conn, adOpenKeyset, adLockReadOnly    '添加到Treeview中
    TreeView1.Nodes.Clear            '加上这句！！！
    While Not rs.EOF
        Dim mNode As Node
        Set mNode = TreeView1.Nodes.Add
        With mNode
            .Text = rs.Fields("name")
            .Key = "n" & rs.Fields("id")
        End With
        Set mNode = Nothing
    Wend
    rs.Close
    Set rs = Nothing
    
    '释放数据库连接
    conn.Close
    Set conn = Nothing