defaultvb.aspx.vb

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

Imports System
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.GeneralFeatures.Migration

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Protected Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents RadGrid1 As RadGrid
        Protected WithEvents RadGrid2 As RadGrid
        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#Region "Web Form Designer generated code"

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

        Private Sub InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Me.IsPostBack Then
                DataGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, ContactName, CompanyName FROM Customers")
                DataGrid1.DataBind()
            End If
        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            RadGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, ContactName, CompanyName FROM Customers")
        End Sub

        Private Sub RadGrid2_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid2.NeedDataSource
            RadGrid2.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, ContactName, CompanyName FROM Customers")
        End Sub

        Private Sub DataGrid1_PageIndexChanged(ByVal [source] As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
            Me.DataGrid1.CurrentPageIndex = e.NewPageIndex
            DataGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, ContactName, CompanyName FROM Customers")
            DataGrid1.DataBind()
        End Sub
    End Class
End Namespace