vb点虐 生成tree vbnet implements

VB.NET使用Treeview实现货品树状结构分类

你这个要按照数据库的查询数据找出来根节点。Treeview增加一个节点。

创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站建设、网站制作、景谷网络推广、小程序制作、景谷网络营销、景谷企业策划、景谷品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供景谷建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com

然后根据根节点找出来所有子节点。再依次增加TreeView子节点。

然后逐个子节点进行下一步查询。再把结果刷新到TreeView子节点。

给你说说思路。你肯定会问怎么编程序。

那麻烦你上网到msdn查查Treeview的例子程序，自己学习改改看看。

如果你还坚持要别人帮你写写数据库查询的代码，那你也可以移步msdn查找SQLServer数据库查询如何执行按照关键字查询。

VB.NET中的treeview控件

''' summary

''' 加入菜单子节点

''' /summary

''' param name="tbMenu"菜单表/param

''' param name="tvNode"父节点/param

''' remarks/remarks

Private Sub AddNode(ByVal tbMenu As DataTable, ByVal tvNode As TreeNode)

Dim myRow As DataRow() = tbMenu.Select(String.Format("PRMENUID = '{0}'", tvNode.NodeID), "SORTORDER")‘查询子菜单，按SORTORDER字段排序

Dim strURL As String = String.Empty‘菜单链接

For Each DataRow In myRow’循环所有子菜单

Dim MainMenuNode As TreeNode = New TreeNode() With {.Text = DataRow.Item("VALUE"), .NodeID = DataRow.Item("MENU_ID")}'实例化一个子节点

If DataRow.Item("URL").ToString.Length 0 Then

strURL = String.Format("{0}?menuid={1}", DataRow.Item("URL"), DataRow.Item("MENUID"))’菜单链接

MainMenuNode.NavigateUrl = strURL

MainMenuNode.IconUrl = "../image/leaf.gif"‘菜单图标

End If

MainMenuNode.SingleClickExpand = True’设置单击菜单时展开子菜单

MainMenuNode.Expanded = True‘默认展开所有菜单

tvNode.Nodes.Add(MainMenuNode)’将子节点添加进父节点

AddNode(tbMenu, MainMenuNode) '利用递归生成树形菜单

Next

End Sub

希望对你有帮助。

vb点虐 控件treeview从数据库获得数据分层显示

说实话一般不是你这样存储的，一般是用一个字段存储ID号，然后用另一个字段存储上级单位的ID号，然后用递归函数生成TreeView。建议你增加一个字段，然后将编号解析出的上级单位存储在里面。以下是我的一个程序用的递归函数：

表名是unit，其中包含了单位名称unit_name,编号unit_id,Unit_upper就是上级单位的id号。

调用方式是 addtree(ds1, TreeView1.Nodes, 0)，其中ds1是一个DataSet，对应单位的表，treeview1是控件名称，0是固定值，与表中根节点部门的Unit_upper一致(这个单位没有上级)。

Public Function addtree(ByVal ds As DataSet, ByVal treename As TreeNodeCollection, ByVal x1 As Integer) As Boolean

Dim dt As DataTable = ds.Tables("unit")

Dim dm As BindingManagerBase = Me.BindingContext(ds, "unit")

Dim dr As DataRow() = dt.Select("unit_upper=" x1.ToString)

Dim dr1 As DataRow

Dim nd As TreeNode

Dim nd1 As TreeNode

Dim x2 As Integer

If dr.GetLength(0) 0 Then

For Each dr1 In dr

nd = treename.Add(dr1("unit_name"))

nd.Tag = (dr1("unit_id"))

x2 = treename.IndexOf(nd)

addtree(ds, treename.Item(x2).Nodes, dr1("unit_id"))

Next

End If

Return True

End Function

vb点虐 从数据库读取信息填充treeview做成层次目录怎么做

给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()

'查找供电局信息

g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根节点

Do While m_rsRecordOne.Read

strDWDM = m_rsRecordOne.GetString(0) '获取单位代码

treBaseNodeOne = New TreeNode

treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '获取单位名称

treBaseNodeOne.Name = m_rsRecordOne.GetString(1)

treBaseNodeOne.Tag = ""

strvXL.Nodes.Add(treBaseNodeOne)

'添加树结构第二层

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim

treBaseNodeTwo.Name = dr.Item("XLMC")

treBaseNodeTwo.Tag = dr.Item("XLBM")

treBaseNodeOne.Nodes.Add(treBaseNodeTwo)

Next

Loop

m_rsRecordOne.Close()

End Sub