defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports Telerik.WebControls
Imports System.Web.UI.WebControls
Imports Telerik.QuickStart

Namespace Telerik.GridExamplesVBNET.Programming.Hierarchy

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected daOrderDetails As System.Data.OleDb.OleDbDataAdapter
        Protected oleDbDeleteCommand3 As System.Data.OleDb.OleDbCommand
        Protected oleDbInsertCommand3 As System.Data.OleDb.OleDbCommand
        Protected oleDbSelectCommand3 As System.Data.OleDb.OleDbCommand
        Protected oleDbUpdateCommand3 As System.Data.OleDb.OleDbCommand
        Protected daOrders As System.Data.OleDb.OleDbDataAdapter
        Protected oleDbDeleteCommand2 As System.Data.OleDb.OleDbCommand
        Protected oleDbInsertCommand2 As System.Data.OleDb.OleDbCommand
        Protected oleDbSelectCommand2 As System.Data.OleDb.OleDbCommand
        Protected oleDbUpdateCommand2 As System.Data.OleDb.OleDbCommand
        Protected daCustomers As System.Data.OleDb.OleDbDataAdapter
        Protected oleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
        Protected oleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
        Protected oleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
        Protected oleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
        Protected dsNWind1 As dsNWind
        Protected DataGrid1 As System.Web.UI.WebControls.DataGrid
        Protected Button1 As System.Web.UI.WebControls.Button
        Protected Linkbutton2 As System.Web.UI.WebControls.LinkButton
        Protected Linkbutton1 As System.Web.UI.WebControls.LinkButton
        Protected Linkbutton4 As System.Web.UI.WebControls.LinkButton
        Protected Button2 As System.Web.UI.WebControls.LinkButton
        Protected PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder
        Protected oleDbConnection1 As System.Data.OleDb.OleDbConnection

        Private RadGrid1 As RadGrid


        Private Sub DefineGridStructure()
            Me.RadGrid1 = New RadGrid

            AddHandler Me.RadGrid1.NeedDataSource, AddressOf Me.RadGrid1_NeedDataSource
            AddHandler Me.RadGrid1.DetailTableDataBind, AddressOf Me.RadGrid1_DetailTableDataBind

            Me.RadGrid1.CssClass = "RadGrid"

            Me.RadGrid1.Width = Unit.Percentage(100)
            Me.RadGrid1.PageSize = 5
            Me.RadGrid1.AllowPaging = True
            Me.RadGrid1.AllowSorting = True
            Me.RadGrid1.AutoGenerateColumns = False

            'Master table - Customers (I in hierarchy level)
            Me.RadGrid1.MasterTableView.DataMember = "Customers"
            Me.RadGrid1.MasterTableView.PageSize = 15

            'Add columnsn
            Dim boundColumn As GridBoundColumn
            boundColumn = New GridBoundColumn
            boundColumn.DataField = "CustomerID"
            boundColumn.HeaderText = "CustomerID"
            Me.RadGrid1.MasterTableView.Columns.Add(boundColumn)

            boundColumn = New GridBoundColumn
            boundColumn.DataField = "ContactName"
            boundColumn.HeaderText = "Contact Name"
            Me.RadGrid1.MasterTableView.Columns.Add(boundColumn)


            'Detail table - Orders (II in hierarchy level)
            Dim tableViewOrders As New GridTableView(RadGrid1)
            tableViewOrders.DataMember = "Orders"
            Me.RadGrid1.MasterTableView.DetailTables.Add(tableViewOrders)

            'Add columns
            boundColumn = New GridBoundColumn
            boundColumn.DataField = "OrderID"
            boundColumn.HeaderText = "OrderID"
            tableViewOrders.Columns.Add(boundColumn)

            boundColumn = New GridBoundColumn
            boundColumn.DataField = "OrderDate"
            boundColumn.HeaderText = "Date Ordered"
            tableViewOrders.Columns.Add(boundColumn)

            'Detail table Order-Details (III in hierarchy level)
            Dim tableViewOrderDetails As New GridTableView(RadGrid1)
            tableViewOrderDetails.DataMember = "OrderDetails"
            tableViewOrders.DetailTables.Add(tableViewOrderDetails)

            boundColumn = New GridBoundColumn
            boundColumn.DataField = "UnitPrice"
            boundColumn.HeaderText = "Unit Price"
            tableViewOrderDetails.Columns.Add(boundColumn)

            boundColumn = New GridBoundColumn
            boundColumn.DataField = "Quantity"
            boundColumn.HeaderText = "Quantity"
            tableViewOrderDetails.Columns.Add(boundColumn)

            'Add the RadGrid instance to the controls
            Me.PlaceHolder1.Controls.Add(RadGrid1)