defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Telerik.WebControls
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid

Namespace Telerik.GridExamplesVBNET.Client.GetClientGridObjects
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Private Sub InitializeComponent()
            AddHandler Me.RadGrid1.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid1_NeedDataSource)
            AddHandler Me.RadGrid2.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid2_NeedDataSource)
            AddHandler Me.RadGrid3.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid3_NeedDataSource)
            AddHandler Me.RadGrid4.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid4_NeedDataSource)
        End Sub

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            Me.InitializeComponent()
            MyBase.OnInit(e)
        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs)
            Me.RadGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub

        Private Sub RadGrid2_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs)
            Me.RadGrid2.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub

        Private Sub RadGrid3_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs)
            Me.RadGrid3.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub

        Private Sub RadGrid4_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs)
            Me.RadGrid4.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub


        ' Fields
        Protected Button1 As Button
        Protected RadGrid1 As RadGrid
        Protected RadGrid2 As RadGrid
        Protected RadGrid3 As RadGrid
        Protected RadGrid4 As RadGrid
    End Class
End Namespace