defaultvb.aspx.vb

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

Imports System
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Xml.XPath
Imports System.Xml.Xsl
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.Programming.SimpleBinding
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadGrid1 As Telerik.WebControls.RadGrid

        Private Sub LoadData()
            RadGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub

        Private Sub RadGrid1_PageIndexChanged(ByVal source As Object, ByVal e As WebControls.GridPageChangedEventArgs) Handles RadGrid1.PageIndexChanged
            LoadData()
        End Sub

        Private Sub RadGrid1_SortCommand(ByVal source As Object, ByVal e As WebControls.GridSortCommandEventArgs) Handles RadGrid1.SortCommand
            LoadData()
        End Sub

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If (Not IsPostBack) Then
                LoadData()
            End If
        End Sub
    End Class
End Namespace