defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 86 行

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data.OleDb
Imports Telerik.QuickStart
Imports Telerik.WebControls

'/ <summary>
'/ Summary description for _Default.
'/ </summary>
Namespace Telerik.TreeViewExamplesVBNET.SqlBinding
    Public Class DefaultVB
        Inherits XhtmlPage
        Protected RadTree1 As Telerik.WebControls.RadTreeView

        Private Sub GenerateTreeView()
            Dim dbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/TreeView/Data/Tree.mdb"))
            dbCon.Open()

            Dim adapter As New OleDbDataAdapter("SELECT * FROM Links", dbCon)
            Dim ds As New DataSet()
            adapter.Fill(ds)

            ds.Relations.Add("NodeRelation", ds.Tables(0).Columns("id"), ds.Tables(0).Columns("parentId"))

            Dim dbRow As DataRow
            For Each dbRow In ds.Tables(0).Rows
                If dbRow.IsNull("parentId") Then
                    Dim node As RadTreeNode = CreateNode(dbRow("Text").ToString(), True, dbRow("id").ToString())
                    RadTree1.AddNode(node)
                    RecursivelyPopulate(dbRow, node)
                End If
            Next dbRow
        End Sub 'GenerateTreeView


        Private Sub RecursivelyPopulate(ByVal dbRow As DataRow, ByVal node As RadTreeNode)
            Dim childRow As DataRow
            For Each childRow In dbRow.GetChildRows("NodeRelation")
                Dim childNode As RadTreeNode = CreateNode(childRow("Text").ToString(), True, childRow("id").ToString())
                node.AddNode(childNode)
                RecursivelyPopulate(childRow, childNode)
            Next childRow
        End Sub 'RecursivelyPopulate


        Private Function CreateNode(ByVal [text] As String, ByVal expanded As Boolean, ByVal id As String) As RadTreeNode
            Dim node As New RadTreeNode([text])
            node.Expanded = True
            node.ID = id

            Return node
        End Function 'CreateNode


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                GenerateTreeView()
            End If
        End Sub 'Page_Load

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub 'OnInit


        Private Sub InitializeComponent()
        End Sub 'InitializeComponent

#End Region
    End Class 'DefaultCS 
End Namespace