GridView自己定义表头

最新推荐文章于 2015-09-14 16:54:49 发布

logicbiz

最新推荐文章于 2015-09-14 16:54:49 发布

阅读量718

点赞数

分类专栏： ASP.NET 文章标签： object

ASP.NET 专栏收录该内容

11 篇文章

订阅专栏

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