defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.AJAX.OutOfGrid

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadGrid1 As RadGrid


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

        Protected Overrides Sub RaisePostBackEvent(ByVal source As IPostBackEventHandler, ByVal eventArgument As String)
            MyBase.RaisePostBackEvent(source, eventArgument)
            If TypeOf source Is RadGrid Then
                Select Case eventArgument
                    Case "ResetAndRebind"
                        RadGrid1.MasterTableView.CurrentPageIndex = 0
                        RadGrid1.MasterTableView.SortExpressions.Clear()
                        RadGrid1.MasterTableView.GroupByExpressions.Clear()
                        RadGrid1.Rebind()
                End Select
            End If
        End Sub


#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

    End Class
End Namespace