defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.Programming.PagerTemplate

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents RadGrid1 As RadGrid

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

        Private Sub RadGrid1_ItemCommand(ByVal sender As Object, ByVal e As Telerik.WebControls.GridCommandEventArgs) Handles RadGrid1.ItemCommand
            If e.CommandName = "CustomChangePage" Then
                Dim newPageIndexString As String = CType(e.Item.FindControl("tbPageNumber"), TextBox).Text
                Dim newPageIndex As Integer = e.Item.OwnerTableView.CurrentPageIndex
                If Not newPageIndexString.Trim() Is String.Empty Then
                    Try
                        newPageIndex = Integer.Parse(newPageIndexString) - 1
                    Catch
                        'process incorrect input here if needed
                    End Try
                End If

                If Not e.Item.OwnerTableView.CurrentPageIndex = newPageIndex Then
                    e.Item.OwnerTableView.CurrentPageIndex = newPageIndex
                    e.Item.OwnerTableView.Rebind()
                End If
            End If
        End Sub

    End Class
End Namespace