If Not IsPostBack Then
Dim yr As String = String.Empty
For Each dr As DataRow In news.Rows
Dim parentnode As TreeNode = Nothing
yr = CDate(dr("newsec_date")).Year.ToString
parentnode = Treeview1.FindNode(yr)
If parentnode Is Nothing Then
parentnode = New TreeNode(yr, yr)
new_date = dr("newsec_date")
month = array(new_date.Month - 1)
Dim child As New TreeNode(month, month)
parentnode.Collapse()
Select Case new_date.Month
Case 1
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
jan.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(jan)
jan.Collapse()
Case 2
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
feb.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(feb)
feb.Collapse()
Case 3
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
mar.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(mar)
mar.Collapse()
Case 4
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
apr.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(apr)
apr.Collapse()
Case 5
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
may.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(may)
may.Collapse()
Case 6
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
jun.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(jun)
jun.Collapse()
Case 7
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
jul.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(jul)
jul.Collapse()
Case 8
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
Aug.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(aug)
aug.Collapse()
Case 9
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
Sep.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(sep)
sep.Collapse()
Case 10
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
Oct.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(oct)
oct.Collapse()
Case 11
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
Nov.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(nov)
nov.Collapse()
Case 12
Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id"))
Dec.ChildNodes.Add(grandchildnode)
parentnode.ChildNodes.Add(dec)
dec.Collapse()
End Select
Smadhu
Member
510 Points
989 Posts
change order of nodes coming in treeview
Jun 21, 2012 01:38 PM|LINK
how to change order of nodes coming in treeview
in my code 2012
sep
april
jan
i want it should come in order jan,april,sep
If Not IsPostBack Then Dim yr As String = String.Empty For Each dr As DataRow In news.Rows Dim parentnode As TreeNode = Nothing yr = CDate(dr("newsec_date")).Year.ToString parentnode = Treeview1.FindNode(yr) If parentnode Is Nothing Then parentnode = New TreeNode(yr, yr) new_date = dr("newsec_date") month = array(new_date.Month - 1) Dim child As New TreeNode(month, month) parentnode.Collapse() Select Case new_date.Month Case 1 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) jan.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(jan) jan.Collapse() Case 2 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) feb.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(feb) feb.Collapse() Case 3 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) mar.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(mar) mar.Collapse() Case 4 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) apr.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(apr) apr.Collapse() Case 5 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) may.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(may) may.Collapse() Case 6 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) jun.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(jun) jun.Collapse() Case 7 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) jul.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(jul) jul.Collapse() Case 8 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) Aug.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(aug) aug.Collapse() Case 9 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) Sep.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(sep) sep.Collapse() Case 10 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) Oct.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(oct) oct.Collapse() Case 11 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) Nov.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(nov) nov.Collapse() Case 12 Dim grandchildnode As New TreeNode(dr("newsec_title"), dr("newsec_id")) Dec.ChildNodes.Add(grandchildnode) parentnode.ChildNodes.Add(dec) dec.Collapse() End Select