Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Public Class DataGrid_RunningMode
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

        'Apply the Server Side Procedures
        AddHandler myDataGrid.PageNumberChanged, AddressOf myDataGrid_PageNumberChanged
        AddHandler myDataGrid.SortCommand, AddressOf myDataGrid_SortCommand

        'Define SQL query
        Dim SqlQuery As String = "SELECT CustomerID, CompanyName, ContactName, Address, PostalCode " & _
            "FROM Customers ORDER BY CustomerID"

        'Get DataTable (MS Access Database)
        Dim myDataSource As DataTable = DataBase.GetDataTableOleDb(SqlQuery, "~/DataGrid/DataBases/Nwind.mdb")

        'Set the data source
        myDataGrid.KeyFieldName = "CustomerID"
        myDataGrid.DataSource = myDataSource
        myDataGrid.DataBind()

    End Sub

    Private Sub myDataGrid_PageNumberChanged(ByVal sender As Object, ByVal e As APNSoft.WebControls.DataGridEventArgs)
        lblHandler.Text = "<br/>"
        lblHandler.Text &= "Event: <b>PageNumberChanged</b><br/>"
        lblHandler.Text &= "Page number: <b>" & _
            e.PageNumber.ToString() & "</b><br/><br/>"

    End Sub


    Private Sub myDataGrid_SortCommand(ByVal sender As Object, ByVal e As APNSoft.WebControls.DataGridEventArgs)
        lblHandler.Text = "<br/>"
        lblHandler.Text &= "Event: <b>SortCommand</b><br/>"
        lblHandler.Text &= "Column name: <b>" & _
            e.GridColumn.ColumnName & "</b><br/><br/>"
    End Sub

End Class