如何用TreeView做到这个效果？

lemondian

用treeview将数据库的字段显示出来：数据库

要求达到下列效果：共4层，所有的须通过数据库生成
青海省
|
|__西宁
| |__城乡线路
|    |__吧浪专线
|    |__201路
|    |__。。。
| |__市区线路
| |__直达公交
|
|__格尔木
| |__都兰县线路
|    |__察苏-东山根
|    |__察苏-热水
|    |__。。。
| |__市区线路
| |__互助县线路
| |__平安县线路
| |__德令哈市线路
****************************
昨晚搞了一个晚上，做不到相应的要求！各位达人们，真心求帮忙呀！

lemondian

Help!

startbin321

自己领悟吧

    Tv1.Nodes.Add , , "西宁", "西宁"
    Tv1.Nodes.Add "西宁", tvwChild, "城乡线路", "城乡线路"
    Tv1.Nodes.Add "城乡线路", tvwChild, "吧浪专线", "吧浪专线"
    Tv1.Nodes.Add "城乡线路", tvwChild, "201路", "201路"
    Tv1.Nodes.Add "城乡线路", tvwChild, "...", "..."
   
    Tv1.Nodes.Add "西宁", tvwChild, "市区线路", "市区线路"
    Tv1.Nodes.Add "西宁", tvwChild, "直达公交", "直达公交"

startbin321

1. Private Sub Command2_Click()
   
2.    
   
3.     Dim rs As New ADODB.Recordset, cnn As New ADODB.Connection, ConnectString As String
   
4.    
   
5.     ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\青海全省.mdb;Persist Security Info=False"
   
6.     ConnectString = Replace$(ConnectString, "\", "")
   
7.     If cnn.State <> 0 Then cnn.Close
   
8.     cnn.ConnectionTimeout = 10
   
9.     cnn.CursorLocation = 3
   
10.     cnn.CommandTimeout = 15
    
11.     cnn.Open ConnectString
    
12.    
    
13.     rs.Open "select * from bus", cnn, 1, 3
    
14.     InsertTv rs
    
15. End Sub
    
16. 
    
17. Sub InsertTv(rs As ADODB.Recordset)
    
18.     Dim i As Long, s As String, cs As String, xllx As String, xl As String
    
19.     On Error Resume Next
    
20.     For i = 1 To rs.RecordCount
    
21.         '简单粗暴
    
22.         s = Trim(rs.Fields("省"))
    
23.         cs = Trim(rs.Fields("城市"))
    
24.         xllx = Trim(rs.Fields("路线类型"))
    
25.         xl = Trim(rs.Fields("路线"))
    
26.         
    
27.         Tv1.Nodes.Add , , s, s
    
28.         Tv1.Nodes.Add s, tvwChild, cs, cs
    
29.         Tv1.Nodes.Add cs, tvwChild, xllx, xllx
    
30.         Tv1.Nodes.Add xllx, tvwChild, xl, xl
    
31.         Debug.Print s, cs, xllx, xl
    
32.         rs.MoveNext
    
33.     Next
    
34.    
    
35. End Sub

复制代码