Option Explicit On
Option Strict On
Imports Vishwa.Example.Business
''' <summary>
''' Author : Vishwa@VishwaMohan.com
''' Date : 10/14/2007
''' Class: CustomerDynamicGridView
''' Purpose : To Generate a Dynamic Gridview with Custom Bound Column
''' </summary>
''' <remarks></remarks>
'''
Partial Class CustomerDynamicGridView
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
IfNot Page.IsPostBack ThenCall PopulateDynamicGrid()
End Sub
Private Sub PopulateDynamicGrid()
Dim gvwGridView AsNew GridView
Dim tblMain AsNew HtmlTable
Dim trRow AsNew HtmlTableRow
Dim tdCell AsNew HtmlTableCell
Dim lblTitleText AsNew Label
Dim bizCust AsNew BIZCustomer
lblTitleText.Text = "Customer List"
lblTitleText.Font.Bold = True
lblTitleText.BackColor = Drawing.Color.Navy
lblTitleText.ForeColor = Drawing.Color.White
tdCell.Controls.Add(lblTitleText)
tdCell.Height = "30px"
trRow.Cells.Add(tdCell)
tblMain.Rows.Add(trRow)
With gvwGridView
.HorizontalAlign = HorizontalAlign.Left
.BackColor = Drawing.Color.FromName("#ccccff")
.BorderColor = Drawing.Color.Black
.CellPadding = 3
.CellSpacing = 0
.Font.Name = "Verdana"
.Font.Size = 8
.HeaderStyle.Font.Size = 10
.HeaderStyle.BackColor = Drawing.Color.FromName("#aaaadd")
.HeaderStyle.VerticalAlign = VerticalAlign.Bottom
.AlternatingRowStyle.BackColor = Drawing.Color.White
.HeaderStyle.Wrap = False
.AutoGenerateColumns = False
.EmptyDataText = "No Record Found."
CustomizeThisGrid(gvwGridView)
.DataSource = bizCust.GetCustomers()
.DataBind()
EndWith
trRow = New HtmlTableRow
tdCell = New HtmlTableCell
tdCell.Align = "Left"
tdCell.Controls.Add(gvwGridView)
trRow.Cells.Add(tdCell)
tblMain.Rows.Add(trRow)
plhCustomer.Controls.Add(tblMain)
End Sub
Private Sub CustomizeThisGrid(ByRef myGridView As GridView)
myGridView.Columns.Clear()
Dim col0 As BoundField = New BoundField()
Dim col1 As BoundField = New BoundField()
Dim col2 As BoundField = New BoundField()
col0.ItemStyle.HorizontalAlign = HorizontalAlign.Left
col0.HeaderStyle.HorizontalAlign = HorizontalAlign.Left
col0.HeaderText = "ID#"
col0.DataField = "CustID"
myGridView.Columns.Add(col0)
col1.ItemStyle.HorizontalAlign = HorizontalAlign.Left
col1.HeaderStyle.HorizontalAlign = HorizontalAlign.Left
col1.HeaderText = "Name"
col1.DataField = "CustName"
myGridView.Columns.Add(col1)
col2.ItemStyle.HorizontalAlign = HorizontalAlign.Left
col2.HeaderStyle.HorizontalAlign = HorizontalAlign.Left
col2.HeaderText = "Address"
col2.DataField = "CustAddress"
myGridView.Columns.Add(col2)
End Sub
End Class