ASP.NET 2.0 - 如何以程控方式动态建立一个 GridView 控件

2006-11-29 11:28:18

图表 1

有读者询问如何以程控方式替网页加入一个 GridView 控件。其实我们到目前为止并没有撰写 ASP.NET 2.0 的书籍，不过既然有读者问，我就试作了一个。图 1 所示之网页上的 GridView 控件就是完全以程序代码来动态建立。相关程序代码撰写于网页的 Load 事件处理例程中，摘要列示如下：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
' 建立一个 ObjectDataSource 对象并设定其相关属性。
Dim os As ObjectDataSource = New ObjectDataSource()
os.ID = "DepartmentDtSource"
os.SelectMethod = "GetChartDataTable"
os.TypeName = "ChartSupplier"

' 建立一个 GridView 对象并设定其相关属性。
Dim gv As GridView = New GridView()

gv.ID = "PieChartGridView"

' 将 GridView 的数据来源设定成 ObjectDataSource 对象。

gv.DataSourceID = os.ID
gv.DataKeyNames = New String() {"部门"}
gv.AutoGenerateColumns = False

gv.AllowSorting = True
gv.AllowPaging = True
gv.PageSize = 2

' 建立一个 BoundField 数据行。
Dim myDepartmentField As BoundField = New BoundField()
myDepartmentField.HeaderText = "部门"
myDepartmentField.DataField = "部门"

' 建立一个 ImageField 数据行。
Dim myPieChartField As ImageField = New ImageField()
myPieChartField.HeaderText = "圆饼图"
myPieChartField.DataImageUrlField = "部门编码"
…

' 将自订的数据行加入 Columns 集合中。
gv.Columns.Add(myDepartmentField)
gv.Columns.Add(myPieChartField)

' 设定 GridView 对象的外观样式。
gv.BackColor = Color.FromName("#DEBA84")
gv.BorderColor = Color.FromName("#DEBA84")
gv.BorderStyle = BorderStyle.None
gv.BorderWidth = 1
gv.CellPadding = 3
gv.CellSpacing = 2

gv.FooterStyle.BackColor = Color.FromName("#F7DFB5")
gv.FooterStyle.ForeColor = Color.FromName("#8C4510")

gv.RowStyle.BackColor = Color.FromName("#FFF7E7")
gv.RowStyle.ForeColor = Color.FromName("#8C4510")

gv.SelectedRowStyle.BackColor = Color.FromName("#738A9C")
gv.SelectedRowStyle.ForeColor = Color.White
gv.SelectedRowStyle.Font.Bold = True

gv.PagerStyle.ForeColor = Color.FromName("#8C4510")
gv.PagerStyle.HorizontalAlign = HorizontalAlign.Center
gv.HeaderStyle.BackColor = Color.FromName("#A55129")
gv.HeaderStyle.ForeColor = Color.White
gv.HeaderStyle.Font.Bold = True

gv.PagerSettings.FirstPageImageUrl = "~/Images/First.gif"
gv.PagerSettings.LastPageImageUrl = "~/Images/Last.gif"
gv.PagerSettings.NextPageImageUrl = "~/Images/Next.gif"
gv.PagerSettings.PreviousPageImageUrl = "~/Images/Previous.gif"
gv.PagerSettings.Mode = PagerButtons.NextPreviousFirstLast
gv.PagerSettings.Position = PagerPosition.TopAndBottom
gv.PagerSettings.FirstPageText = "移到第一页"
gv.PagerSettings.LastPageText = "移到最后一页"
gv.PagerSettings.NextPageText = "移到下一页"
gv.PagerSettings.PreviousPageText = "移到前一页"
gv.PagerSettings.PageButtonCount = 4

' 将 ObjectDataSource 控件加入网页中。
Page.Form.Controls.Add(os)

' 将 GridView 控件加入网页中。
Page.Form.Controls.Add(gv)

gv.DataBind()
End Sub

本文出自 “章立民” 博客，转载请与作者联系！

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：