本文介绍如何使用 ASP.NET 中的 GridView 控件创建多层表头，并通过编程方式填充表格数据。通过示例代码展示了如何定义表头布局、设置行样式以及实现数据绑定。
<%@ Page Language="VB" AutoEventWireup="true" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><script runat="server">
Function CreateDataSource()Function CreateDataSource() As ICollection
Dim dt As System.Data.DataTable = New System.Data.DataTable Dim dr As System.Data.DataRow dt.Columns.Add(New System.Data.DataColumn("学生班级", GetType(System.String))) dt.Columns.Add(New System.Data.DataColumn("学生姓名", GetType(System.String))) dt.Columns.Add(New System.Data.DataColumn("语文", GetType(System.Decimal))) dt.Columns.Add(New System.Data.DataColumn("数学", GetType(System.Decimal))) dt.Columns.Add(New System.Data.DataColumn("英语", GetType(System.Decimal))) dt.Columns.Add(New System.Data.DataColumn("计算机", GetType(System.Decimal))) Dim i As Integer = 0 While i < 8 Dim rd As System.Random = New System.Random(Environment.TickCount * i) dr = dt.NewRow dr(0) = "班级" + i.ToString dr(1) = "学生" + i.ToString dr(2) = System.Math.Round(rd.NextDouble * 100, 2) dr(3) = System.Math.Round(rd.NextDouble * 100, 2) dr(4) = System.Math.Round(rd.NextDouble * 100, 2) dr(5) = System.Math.Round(rd.NextDouble * 100, 2) dt.Rows.Add(dr) System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1) End While Dim dv As System.Data.DataView = New System.Data.DataView(dt) Return dv
End Function Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) If Not IsPostBack Then GridView1.BorderColor = System.Drawing.Color.DarkOrange GridView1.DataSource = CreateDataSource() GridView1.DataBind() End If End Sub Protected Sub GridView1_RowCreated()Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.Header Then Dim rowHeader As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) Dim HeaderBackColor As String = "#EDEDED" rowHeader.BackColor = System.Drawing.ColorTranslator.FromHtml(HeaderBackColor) Dim newCells As Literal = New Literal newCells.Text = "表头文字1</th>" + _ " <th colspan='2'>表头文字2</th>" + _ " <th colspan='2'>表头文字3</th>" + _ " <th>表头文字4</th>" + _ " </tr>" + _ " <tr bgcolor='" + HeaderBackColor + "'>" + _ " <th colspan='2'>表头文字5</th>" + _ " <th rowspan='2'>表头文字6</th>" + _ " <th colspan='2'>表头文字7</th>" + _ " </tr>" + _ " <tr bgcolor='" + HeaderBackColor + "'>" + _ " <th>表头文字8</th>" + _ " <th>表头文字9</th>" + _ " <th>表头文字10</th>" + _ " <th>表头文字11</th>" + _ " <th>表头文字12" Dim cells As TableCellCollection = e.Row.Cells Dim headerCell As TableHeaderCell = New TableHeaderCell headerCell.RowSpan = 2 headerCell.Controls.Add(newCells) rowHeader.Cells.Add(headerCell) rowHeader.Cells.Add(headerCell) rowHeader.Visible = True GridView1.Controls(0).Controls.AddAt(0, rowHeader) End If End Sub Protected Sub GridView1_RowDataBound()Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.Header Then e.Row.Attributes.Add("style", "background:#9999FF;color:#FFFFFF;font-size:14px") Else e.Row.Attributes.Add("style", "background:#FFF") End If End Sub </script><html xmlns="http://www.w3.org/1999/xhtml"><head> <title>为 GridView 添加多层表头</title></head><body> <form id="Form1" runat="server"> <asp:GridView ID="GridView1" runat="server" CellSpacing="1" CellPadding="3" Font-Size="12px" Width="600px" BackColor="#000000" BorderWidth="0" OnRowDataBound="GridView1_RowDataBound" OnRowCreated="GridView1_RowCreated"> </asp:GridView> </form></body></html>
扫一扫
194
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
