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 As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then Call PopulateDynamicGrid()
End Sub
Private Sub PopulateDynamicGrid()
Dim gvwGridView As New GridView
Dim tblMain As New HtmlTable
Dim trRow As New HtmlTableRow
Dim tdCell As New HtmlTableCell
Dim lblTitleText As New Label
Dim bizCust As New 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()
End With
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