BLL/FOLDER_BLL.vb

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

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

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Collections
Imports System.Web.UI.WebControls
Imports Model
Imports DAL
Public Class FOLDER_BLL

    Public Sub BindList(ByVal tree As TreeView)
        Dim strFolder_DAL As New FOLDER_DAL
        Dim strFolder As New FOLDER
        strFolder.PARENTNO = 0
        Dim list As New ArrayList()
        list = strFolder_DAL.GetList(strFolder)
        If list IsNot Nothing Then
            For i As Integer = 0 To list.Count - 1
                Dim gettree As New FOLDER
                gettree = DirectCast(list(i), FOLDER)
                Dim treenode As New TreeNode()
                treenode.Text = gettree.DESCRIPTION
                treenode.Value = gettree.FOLDERNO
                treenode.ImageUrl = gettree.IMAGEURL
                If gettree.LINKURL.Trim = "" Then
                    treenode.NavigateUrl = ""
                Else
                    treenode.NavigateUrl = "javascript:window.parent.newTab('" + gettree.LINKURL + "');" 'gettree.LINKURL
                End If
                'treenode.Target = "main_right"
                'treenode.Expanded = False
                tree.Nodes.Add(treenode)
                Bind2(treenode, gettree.FOLDERNO)
            Next
        End If
    End Sub
    Public Sub Bind2(ByVal parentNod As TreeNode, ByVal ID As Integer)
        Dim strFolder_DAL As New FOLDER_DAL
        Dim strFolder As New FOLDER
        strFolder.PARENTNO = ID
        Dim list As New ArrayList()
        list = strFolder_DAL.GetList(strFolder)
        If list IsNot Nothing Then
            For i As Integer = 0 To list.Count - 1
                Dim gettree As New FOLDER
                gettree = DirectCast(list(i), FOLDER)
                Dim treenode As New TreeNode()
                treenode.Text = gettree.DESCRIPTION
                treenode.Value = gettree.FOLDERNO
                treenode.ImageUrl = gettree.IMAGEURL
                If gettree.LINKURL.Trim = "" Then
                    treenode.NavigateUrl = ""
                Else
                    treenode.NavigateUrl = "javascript:window.parent.newTab('" + gettree.LINKURL + "');" 'gettree.LINKURL
                End If
                'treenode.Target = "main_right"
                parentNod.ChildNodes.Add(treenode)
                Bind2(treenode, gettree.FOLDERNO)
            Next
        End If
    End Sub