web/AddRoleGROUP.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI
Partial Class AddRoleGROUP
    Inherits System.Web.UI.Page
    Dim strFOLDER_BLL As New GROUPFOLDER_BLL
    Dim Syscrf As New SystemBLL()
    Dim sysrolegroup As New ROLEGROUP_BLL
    Dim strrolegroup As New ROLEGROUP
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            strFOLDER_BLL.BindList(mytree)
            RoleGroupGrid()
            Rpost.SelectedIndex = 0
        End If

        mytree.Attributes.Add("onclick", "CheckEvent()")

        If mytree.SelectedNode Is Nothing Then Return
        If mytree.SelectedNode.Expanded Then
            mytree.SelectedNode.Collapse()
        Else
            mytree.SelectedNode.Expand()
        End If
    End Sub

    Private Sub RoleGroupGrid()
        list_ROLEGROUP.DataSource = Syscrf.seachData("select GROUPID,DESCRIPTION from GROUPTABLE")
        list_ROLEGROUP.DataTextField = "DESCRIPTION"
        list_ROLEGROUP.DataValueField = "GROUPID"
        list_ROLEGROUP.DataBind()
        list_ROLEGROUP.Items.Insert(0, "")
    End Sub



    Private Sub PAGEGRID()
        CATEGRID.DataSource = Syscrf.seachData("select * from ROLEGROUP where GROUPID='" & list_ROLEGROUP.SelectedValue.Trim & "' and linkurl<>''")
        CATEGRID.DataBind()
    End Sub
    Private Sub SetCheckbox(ByVal tn As TreeNode, ByVal strValue As String)
        For i As Integer = 0 To tn.ChildNodes.Count - 1
            If tn.ChildNodes(i).Value = strValue Then
                tn.ChildNodes(i).Checked = True
            End If
            SetCheckbox(tn.ChildNodes(i), strValue)
        Next
    End Sub

    Private Sub SetCCheckbox(ByVal tn As TreeNode)
        For i As Integer = 0 To tn.ChildNodes.Count - 1

            tn.ChildNodes(i).Checked = False

            SetCCheckbox(tn.ChildNodes(i))
        Next
    End Sub