Public Function GetTreeTable() As DataTable 　Dim dt As New DataTable() 　dt = HttpContext.Current.Cache("Treeview") 　If dt Is Nothing Then 　　Dim Conn As New SqlConnection 　　Dim clsConnDatabase As New ConnectionDatabase 　　Conn = clsConnDatabase.ConnDatabase 　　Dim Command As New SqlCommand 　　Command.Connection = Conn 　　Command.CommandText = "GetTreeview" 　　Command.CommandType = CommandType.StoredProcedure 　　Command.ExecuteNonQuery() 　　Dim da As New SqlDataAdapter(Command) 　　dt = New DataTable() 　　da.Fill(dt) 　　HttpContext.Current.Cache.Insert("Treeview", dt) 　End If 　Return dt End Function 　　这里是主要阿 Public Sub PopulateNodes(ByVal nodes As TreeNodeCollection, Optional ByVal intParentID As Int32 = 0) 　Dim dt As New DataTable() 　dt = clsWebForms.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() 　　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 　　建立WebForm 放入Treeview 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