<%@ 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() 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(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(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(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>
Posted on
2006-11-23 08:59李通通
阅读(195)
评论(0)
编辑收藏举报