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
|