【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	管理者设定