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_ColumnsTemplateASCX
    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 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 properties
        myDataGrid.Columns("CustomerID").Width = 533
        myDataGrid.Columns("CustomerID").Template = "~/DataGrid/Templates/Orders.ascx"
        myDataGrid.Columns("CustomerID").HeaderText = "Customer (CustomerID, CompanyName, ContactName):"
        myDataGrid.Columns("CompanyName").Visible = False
        myDataGrid.Columns("ContactName").Visible = False

    End Sub
End Class