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_ColumnsTemplateImages
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

        'Define SQL query
        Dim SqlQuery As String = "SELECT '0' as LineNumbers, ISBN, Title, Authors, Price FROM Books"

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

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

        'Format Columns
        myDataGrid.Columns("LineNumbers").LineNumbers = True
        myDataGrid.Columns("LineNumbers").FormatType = GetType(System.String)
        myDataGrid.Columns("LineNumbers").FormatString = "{0}."
        myDataGrid.Columns("LineNumbers").CssClass = "LineNumbers"
        myDataGrid.Columns("LineNumbers").Width = 30
        myDataGrid.Columns("LineNumbers").Sortable = False
        myDataGrid.Columns("LineNumbers").Resizable = False
        myDataGrid.Columns("LineNumbers").HeaderText = ""

        myDataGrid.Columns("ISBN").Visible = False
        myDataGrid.Columns("Authors").Visible = False

        myDataGrid.Columns("Title").Width = 420
        myDataGrid.Columns("Title").HeaderText = "Sort by Title"
        myDataGrid.Columns("Title").Resizable = False
        myDataGrid.Columns("Title").Template = "~/DataGrid/Templates/Book.html"

        myDataGrid.Columns("Price").Width = 100
        myDataGrid.Columns("Price").HeaderText = "Sort by Price"
        myDataGrid.Columns("Price").Resizable = False
        myDataGrid.Columns("Price").Template = "~/DataGrid/Templates/BookPrice.html"

    End Sub
End Class