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_ColumnsHeaderText
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 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()
'Set column headers
myDataGrid.Columns("CustomerID").HeaderText = "<span style='color:red;font-weight:bold;'>Customer</span>"
myDataGrid.Columns("CompanyName").HeaderText = "<span style='color:green;font-weight:bold;'>Company</span>"
myDataGrid.Columns("ContactName").HeaderText = "<span style='color:blue;font-weight:bold;'>Person</span>"
myDataGrid.Columns("Address").HeaderText = "<span style='color:Maroon;font-weight:bold;'>Address</span>"
myDataGrid.Columns("PostalCode").HeaderText = "<span style='color:#C615CA;font-weight:bold;'>Postal Code</span>"
End Sub
End Class
|