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

Imports APNSoft.WebControls

Partial Public Class DataGrid_RowServerSelection
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        'Apply event-handling method
        AddHandler myDataGrid.OnRowClick, AddressOf myDataGrid_SelectCommand


        '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


    'The Server Side Procedure
    Private Sub myDataGrid_SelectCommand(ByVal sender As Object, ByVal e As DataGridEventArgs)
        'Get selected row
        Dim myGridRow As GridRow = e.GridRow
        If myGridRow Is Nothing Then
            Return
        End If

        'Reset the lblSelRow
        lblSelRow.Text = ""
        lblSelRow.Text &= "Row index: <b>" & _
            myGridRow.RowIndex & "</b><br/>"

        For i As Integer = 0 To myGridRow.Cells.Count - 1
            lblSelRow.Text += myGridRow.Cells(i).ColumnName & ": <b>" & _
            myGridRow.Cells(i).Value.ToString() & "</b><br/>"
        Next i

        lblSelRow.Text &= "<br/>"

    End Sub

End Class