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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货