treeview 菜鸟问题~~

Question

怎么把treeview里的node和数据库里一个字段的内容绑定啊？

Answer 1

表a
name   age
a       10
b       20
c       30
在treeview中显示成
a-a-10
  b-20
  c-30
就好像是这样啊~~

Answer 2

连接数据库后往Treeview里添加就行了象这样：    Dim CN As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
    Rs.MoveFirst
    Do While Not Rs.EOF
        Select Case Len(Trim(Rs.Fields("lno")))
            Case 3
                TreeView1.Nodes.Add , , "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
            Case 5
                TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 3), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
            Case 7
                TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 5), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
       
        End Select
        Rs.MoveNext
    Loop
    Rs.Close
    CN.Close
    For I = 1 To TreeView1.Nodes.Count
        TreeView1.Nodes(I).Expanded = True
    Next

Answer 3

Select Case Len(Trim(Rs.Fields("lno")))
            Case 3
                TreeView1.Nodes.Add , , "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
            Case 5
                TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 3), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
            Case 7
                TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 5), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
       
        End Select
这一部分，我没怎么看明白，怎么样得到一共要生成节点的个数呢？还有怎么样选择字段是节点还是子节点呢~~谢谢啊