change order of nodes coming in treeview RSS

• • Reply
  

  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

  • Edited by Smadhu on Jun 24, 2012 11:34 AM