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.ClientSideEvents
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        ' Methods
        Protected Sub New()
        End Sub

        Private Sub InitializeComponent()
            AddHandler Me.RadGrid1.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid1_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


        ' Fields
        Protected Button1 As Button
        Protected Label1 As Label
        Protected RadGrid1 As RadGrid
        Protected TextBox1 As TextBox
    End Class
End Namespace