Protected Sub G1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles G1.RowCreated
Select Case e.Row.RowType
Case DataControlRowType.Header
Dim TH As TableCellCollection = e.Row.Cells
TH.Clear()
'重新绘制表头
TH.Add(New TableHeaderCell)
TH(0).Attributes.Add( "rowspan ", 3) '合并3行
TH(0).Attributes.Add( "bgcolor ", "white ")
TH(0).Text = " "
TH.Add(New TableHeaderCell)
TH(1).Attributes.Add( "colspan ", 7) '合并7列
TH(1).Text = "收入信息 <tr> "
'绘制第二行表头
TH.Add(New TableHeaderCell)
TH(2).Attributes.Add( "align ", "left ")
TH(2).Text = "功 能 "
'绘制第三行表头
TH.Add(New TableHeaderCell)
TH(3).Attributes.Add( "align ", "left ")
TH(3).Text = "编 号 "
'绘制第四行表头
TH.Add(New TableHeaderCell)
TH(4).Attributes.Add( "align ", "left ")
TH(4).Text = "用户名 "
'绘制第五行表头
TH.Add(New TableHeaderCell)
TH(5).Attributes.Add( "align ", "left ")
TH(5).Text = "名 称 "
'绘制第六行表头
TH.Add(New TableHeaderCell)
TH(6).Attributes.Add( "align ", "left ")
TH(6).Text = "金 额 "
'绘制第七行表头
TH.Add(New TableHeaderCell)
TH(7).Attributes.Add( "align ", "left ")
TH(7).Text = "日 期 "
'绘制第八行表头
TH.Add(New TableHeaderCell)
TH(8).Attributes.Add( "align ", "left ")
TH(8).Text = "类 别 "
End Select
End Sub