【Vegas原创】TreeView操作数据库的使用方法（VB）

      Dim  dbAccess  As   New  DBAccess

         Protected   Sub  Page_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load
             If   Not  Page.IsPostBack  Then
                PopulateNodes(TreeView1.Nodes,  0 )

             End   If
         End Sub

         Protected   Sub  TreeView1_TreeNodePopulate( ByVal  sender  As   Object ,  ByVal  e  As  System.Web.UI.WebControls.TreeNodeEventArgs)  Handles  TreeView1.TreeNodePopulate

            PopulateNodes(e.Node.ChildNodes, e.Node.Value)

         End Sub

         Public   Sub  PopulateNodes( ByVal  nodes  As  TreeNodeCollection,  Optional   ByVal  intParentID  As  Int32  =   0 )

             Dim  dt  As   New  DataTable()
            dt  =  GetTreeTable()
             Dim  strExpression  As   String
            strExpression  =   " [parentID] =  "   &  intParentID
             Dim  foundRows()  As  DataRow
            foundRows  =  dt.Select(strExpression)

             Dim  I  As   Integer
             For  I  =   0   To  foundRows.GetUpperBound( 0 )
                 Dim  tn  As   New  TreeNode()

                tn.Text  =  foundRows(I).Item( " TableName " ).ToString()
                tn.Value  =  foundRows(I).Item( " ID " ).ToString()
                tn.NavigateUrl  =  foundRows(I).Item( " url " ).ToString()
                tn.Target  =  foundRows(I).Item( " target " ).ToString()
                tn.CollapseAll()
                tn.Expand()

                 Dim  dr()  As  DataRow
                dr  =  dt.Select( " [parentID] =  "   &  tn.Value)
                 If  dr.GetUpperBound( 0 )  >   - 1   Then
                    tn.PopulateOnDemand  =   True
                 End   If
                nodes.Add(tn)
             Next

          
         End Sub

         Public   Function  GetTreeTable()  As  DataTable
             Dim  dt  As   New  DataTable()
             Dim  ds  As   New  DataSet()
             ' ''''''''''''''''''''''''TreeView Visible ~~~~~~~~~~~~~~~~~~~~~~@#@!~~~ by Vegas 

             Dim  cookies  As  HttpCookie
            cookies  =  Request.Cookies( " PAS " )
             Dim  workid  As   String   =  cookies( " Emp_No " )
             Dim  strPa_Rank  As   String   =  cookies( " Job_Rank " )
             Dim  super_user  As   String   =  cookies( " Super_User " )

             If   Integer .Parse(strPa_Rank)  >   30   Then
                 If   Integer .Parse(super_user)  =   0   Then
                    dt  =  dbAccess.GetDataTable( " select * from treeview where id<>2 and id<>4 order by id " )
                    HttpContext.Current.Cache.Insert( " Treeview " , dt)
                 Else
                    dt  =  dbAccess.GetDataTable( " select * from treeview order by id " )
                    HttpContext.Current.Cache.Insert( " Treeview " , dt)
                 End   If
             Else
                 If   Integer .Parse(super_user)  =   0   Then

                    dt  =  dbAccess.GetDataTable( " select * from treeview where id<>2 order by id " )
                    HttpContext.Current.Cache.Insert( " Treeview " , dt)
                 Else
                    dt  =  dbAccess.GetDataTable( " select * from treeview order by id " )
                    HttpContext.Current.Cache.Insert( " Treeview " , dt)
                 End   If
             End   If

             Return  dt
         End Function

     End Class

表结构：

id	parentID	tableName	url	target	expanded
1	0	绩效考核系统
2	1	管理者设定