GridView自己定义表头

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
 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值