asp.net的树型控件的使用

Imports eOMPClass
Imports Microsoft.Web.UI.WebControls
Public Class DeptTree
    Inherits System.Web.UI.Page
    Protected WithEvents TreeClass As Microsoft.Web.UI.WebControls.TreeView
    Dim strSQL As String
    Dim sqlQry As New SqlQuerySimple()
    Dim Right As New DataTable()
    Dim iLop As Integer
    Dim sClassID As String#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Call ListTree()
        End If
    End Sub    Private Sub ListTree()
        Dim Tree As TreeNode
        Dim right As New DataTable()
        strSQL = "select OrgID,OrgName,IsUpd from T_eSuperviseRightOrgInfo where len(OrgID)=2"
        right = sqlQry.Query(strSQL)
        Try
            If right.Rows.Count < 1 Then
                Exit Sub
            End If            For iLop = 0 To right.Rows.Count - 1
                Tree = New TreeNode()
                sClassID = Trim(right.Rows(iLop).Item("OrgID"))
                Tree.ID = sClassID
                Tree.Text = Trim(right.Rows(iLop).Item("OrgName"))
                Tree.NavigateUrl = "DeptBehalf.aspx?OrganID=" + sClassID
                Tree.Target = "main"
                TreeClass.Nodes.Add(Tree)
                NodeAdd(sClassID, Tree, 2)
            Next
        Catch e As Exception
            Response.Write(e.Message)
        End Try
    End Sub    Private Sub NodeAdd(ByVal id As String, ByVal tn As TreeNode, ByVal iLeft As Integer)
        Dim strSql As String = "select OrgID,OrgName,IsUpd from T_eSuperviseRightOrgInfo where len(OrgID)=" + CStr(iLeft + 2) + " and left(OrgID," + CStr(iLeft) + ")='" + id + "' and IsDelete=0"        Dim dt As DataTable = sqlQry.Query(strSql)
        Dim i As Integer
        Dim tnSub As TreeNode
        Try
            For i = 0 To dt.Rows.Count - 1
                tnSub = New TreeNode()
                tnSub.ID = Trim(dt.Rows(i).Item("OrgID"))
                tnSub.Text = Trim(dt.Rows(i).Item("OrgName"))
                tnSub.NavigateUrl = "DeptBehalf.aspx?OrganID=" + Trim(dt.Rows(i).Item("OrgID"))
                tnSub.Target = "main"
                tn.Nodes.Add(tnSub)
                NodeAdd(dt.Rows(i).Item("OrgID"), tnSub, 4)
            Next
        Catch err As Exception
            Response.Write("<script language='javascript'>")
            Response.Write("alert('发生意外错误,请重试！');")
            Response.Write("</script>")
        End Try
    End Sub
End Class服务器端代码

解决方案 »

  1.   

    <%@ Page Language="vb" AutoEventWireup="false" Codebehind="DeptTree.aspx.vb" Inherits="eSupervise.DeptTree" %>
    <%@ Register TagPrefix="iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls, Version=1.0.2.116, Culture=neutral, PublicKeyToken=31bf3856ad364e35" %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <title>部门维护</title>
    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    <meta name="vs_defaultClientScript" content="JavaScript">
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    </HEAD>
    <body bgcolor="#fcf9eb" MS_POSITIONING="GridLayout">
    <form id="frmClass" method="post" runat="server">
    <FONT face="宋体"></FONT><FONT face="宋体"></FONT>
    <br>
    <iewc:treeview id="TreeClass" runat="server" HoverStyle="color:#ffffff;" DefaultStyle="color:#000000;">
    <iewc:TreeNode HoverStyle="color:#ffffff;" Text="<label style='color:red'>部门信息</label>" DefaultStyle="color:#000000;"></iewc:TreeNode>
    </iewc:treeview></form>
    </FORM>
    </body>
    </HTML>客户端代码，仅供参考
      

  2.   

    <%@ Page Language="vb" AutoEventWireup="false" Codebehind="DeptTree.aspx.vb" Inherits="eSupervise.DeptTree" %>
    <%@ Register TagPrefix="iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls, Version=1.0.2.116, Culture=neutral, PublicKeyToken=31bf3856ad364e35" %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <title>部门维护</title>
    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    <meta name="vs_defaultClientScript" content="JavaScript">
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    </HEAD>
    <body bgcolor="#fcf9eb" MS_POSITIONING="GridLayout">
    <form id="frmClass" method="post" runat="server">
    <FONT face="宋体"></FONT><FONT face="宋体"></FONT>
    <br>
    <iewc:treeview id="TreeClass" runat="server" HoverStyle="color:#ffffff;" DefaultStyle="color:#000000;">
    <iewc:TreeNode HoverStyle="color:#ffffff;" Text="<label style='color:red'>部门信息</label>" DefaultStyle="color:#000000;"></iewc:TreeNode>
    </iewc:treeview></form>
    </FORM>
    </body>
    </HTML>客户端代码，仅供参考
      

  3.   

    去看看！用递归做的！
    http://expert.csdn.net/Expert/topic/1308/1308130.xml?temp=.8649866
      

  4.   

    我是问treeview有一个方法databind该怎么使用？