VB.NET使用Treeview實(shí)現(xiàn)貨品樹狀結(jié)構(gòu)分類

你這個(gè)要按照數(shù)據(jù)庫(kù)的查詢數(shù)據(jù)找出來根節(jié)點(diǎn)。Treeview增加一個(gè)節(jié)點(diǎn)。

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站建設(shè)、網(wǎng)站制作、景谷網(wǎng)絡(luò)推廣、小程序制作、景谷網(wǎng)絡(luò)營(yíng)銷、景谷企業(yè)策劃、景谷品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供景谷建站搭建服務(wù)，24小時(shí)服務(wù)熱線：13518219792，官方網(wǎng)址：sd-ha.com

然后根據(jù)根節(jié)點(diǎn)找出來所有子節(jié)點(diǎn)。再依次增加TreeView子節(jié)點(diǎn)。

然后逐個(gè)子節(jié)點(diǎn)進(jìn)行下一步查詢。再把結(jié)果刷新到TreeView子節(jié)點(diǎn)。

給你說說思路。你肯定會(huì)問怎么編程序。

那麻煩你上網(wǎng)到msdn查查Treeview的例子程序，自己學(xué)習(xí)改改看看。

如果你還堅(jiān)持要?jiǎng)e人幫你寫寫數(shù)據(jù)庫(kù)查詢的代碼，那你也可以移步msdn查找SQLServer數(shù)據(jù)庫(kù)查詢?nèi)绾螆?zhí)行按照關(guān)鍵字查詢。

VB.NET中的treeview控件

''' summary

''' 加入菜單子節(jié)點(diǎn)

''' /summary

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

''' param name="tvNode"父節(jié)點(diǎn)/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’循環(huán)所有子菜單

Dim MainMenuNode As TreeNode = New TreeNode() With {.Text = DataRow.Item("VALUE"), .NodeID = DataRow.Item("MENU_ID")}'實(shí)例化一個(gè)子節(jié)點(diǎn)

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"‘菜單圖標(biāo)

End If

MainMenuNode.SingleClickExpand = True’設(shè)置單擊菜單時(shí)展開子菜單

MainMenuNode.Expanded = True‘默認(rèn)展開所有菜單

tvNode.Nodes.Add(MainMenuNode)’將子節(jié)點(diǎn)添加進(jìn)父節(jié)點(diǎn)

AddNode(tbMenu, MainMenuNode) '利用遞歸生成樹形菜單

Next

End Sub

希望對(duì)你有幫助。

vb點(diǎn)虐 控件treeview從數(shù)據(jù)庫(kù)獲得數(shù)據(jù)分層顯示

說實(shí)話一般不是你這樣存儲(chǔ)的，一般是用一個(gè)字段存儲(chǔ)ID號(hào)，然后用另一個(gè)字段存儲(chǔ)上級(jí)單位的ID號(hào)，然后用遞歸函數(shù)生成TreeView。建議你增加一個(gè)字段，然后將編號(hào)解析出的上級(jí)單位存儲(chǔ)在里面。以下是我的一個(gè)程序用的遞歸函數(shù)：

表名是unit，其中包含了單位名稱unit_name,編號(hào)unit_id,Unit_upper就是上級(jí)單位的id號(hào)。

調(diào)用方式是 addtree(ds1, TreeView1.Nodes, 0)，其中ds1是一個(gè)DataSet，對(duì)應(yīng)單位的表，treeview1是控件名稱，0是固定值，與表中根節(jié)點(diǎn)部門的Unit_upper一致(這個(gè)單位沒有上級(jí))。

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點(diǎn)虐 從數(shù)據(jù)庫(kù)讀取信息填充treeview做成層次目錄怎么做

給你一段我曾經(jīng)寫的代碼，主要是生成TreeView的節(jié)點(diǎn)！有什么不懂的地方你就提！

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)

'添加根節(jié)點(diǎn)

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)

'添加樹結(jié)構(gòu)第二層

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

分享標(biāo)題：vb點(diǎn)虐 生成tree vbnet implements
瀏覽路徑：http://sd-ha.com/article48/ddjcihp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、品牌網(wǎng)站制作、網(wǎng)站制作、標(biāo)簽優(yōu)化、App設(shè)計(jì)、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)