VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2083|回复: 3

[讨论] 如何用TreeView做到这个效果?

[复制链接]
发表于 2015-1-29 09:25:19 | 显示全部楼层 |阅读模式
本帖最后由 lemondian 于 2015-1-29 09:26 编辑

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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
 楼主| 发表于 2015-1-29 16:11:10 | 显示全部楼层
Help!
回复 支持 反对

使用道具 举报

发表于 2015-1-29 16:46:23 | 显示全部楼层
自己领悟吧

    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, "直达公交", "直达公交"
回复 支持 反对

使用道具 举报

发表于 2015-1-29 17:50:24 | 显示全部楼层
  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. Sub InsertTv(rs As ADODB.Recordset)
  17.     Dim i As Long, s As String, cs As String, xllx As String, xl As String
  18.     On Error Resume Next
  19.     For i = 1 To rs.RecordCount
  20.         '简单粗暴
  21.         s = Trim(rs.Fields("省"))
  22.         cs = Trim(rs.Fields("城市"))
  23.         xllx = Trim(rs.Fields("路线类型"))
  24.         xl = Trim(rs.Fields("路线"))
  25.         
  26.         Tv1.Nodes.Add , , s, s
  27.         Tv1.Nodes.Add s, tvwChild, cs, cs
  28.         Tv1.Nodes.Add cs, tvwChild, xllx, xllx
  29.         Tv1.Nodes.Add xllx, tvwChild, xl, xl
  30.         Debug.Print s, cs, xllx, xl
  31.         rs.MoveNext
  32.     Next
  33.    
  34. End Sub
复制代码

评分

参与人数 1威望 +4 人气 +3 收起 理由
lemondian + 4 + 3 很给力,Thank you!

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-4 22:40

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表