| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
ASP.NET 2005 Treeview终极解决方案
作者：未知    文章来源：网络    点击数：    更新时间：2006-6-23
　 这几天在写HRM的时候 这问题搞了我两天，开始在使用Google 找了半天都是一堆垃圾，都是使用算法的较多， 后来就去了的msdn.yesky.com 找到点启示。 好了废话多说无用。

　　首先表结构如下 表名 Test


　　写个存储过程 GetTreeview

　　这个不用我说了吧下面用到

　　为了速度缓存DataTable

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

　　至于速度我没测试，如果大家有兴趣帮忙测测。

相关文章