月光软件站 - 编程文档 - .NET开发 - （原创）DataGrid多层表头设计

.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·？dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记（补）《.NET框架程序设计（修订版）》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

（原创）DataGrid多层表头设计

作者：未知来源：月光软件站 加入时间：2005-6-5　月光软件站

最近做的项目用到了DataGrid多层表头，问了很多人，自己感觉回答不是很明确，自己总结了一下，希望能够使以后使用的兄弟们少走弯路。

类似于上面的一个情况，乍一看，还以为要通过Table来实现哪，但是相信强大的DataGrid，于

是开始寻找方法。一些前辈们的讲解就是TableCellCollection 中添加TableHeaderCell(这应该是基础的

内容）。

图中是繁体，我用简体来说。

<asp:datagrid id="UserDg" OnItemCreated="DataGrid1_ItemCreated"

Public Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As

System.Web.UI.WebControls.DataGridItemEventArgs)
        If e.Item.ItemType = ListItemType.Header Then
            Dim tcl As TableCellCollection = e.Item.Cells
            tcl.Clear()
            tcl.Add(New TableHeaderCell)
            tcl(0).RowSpan = 2
            tcl(0).Text = "个人编码"

            tcl.Add(New TableHeaderCell)
            tcl(1).RowSpan = 2
            tcl(1).Text = "性别"

            tcl.Add(New TableHeaderCell)
            tcl(2).RowSpan = 2
            tcl(2).Text = "姓名"

tcl.Add(New TableHeaderCell)
 tcl(3).RowSpan = 2
 tcl(3).Text = "服务 次数"

tcl.Add(New TableHeaderCell)
 tcl(4).RowSpan = 2
 tcl(4).Text = "用户 修改"

tcl.Add(New TableHeaderCell)
 tcl(5).RowSpan = 2
 tcl(5).Text = "健康 清单"

tcl.Add(New TableHeaderCell)
 tcl(6).ColumnSpan = 4
 tcl(6).Text = "个人疾病危险性评价</td><td colspan='1' rowspan='2' align=center

valign=middle bgcolor='#0082C6'>管理 处方</td><td

rowspan='2' align=center valign=middle bgcolor='#0082C6'>汇总 报告

</td><td rowspan='2' align=center valign=middle bgcolor='#0082C6'><font

color='#ffffff'>重点 提示</td></tr><tr><td bgcolor='#848284' align='center'

valign='middle'>糖尿病</td><td bgcolor='#848284' align='center'

valign='middle'>中风</td><td bgcolor='#848284' align='center'

valign='middle'>冠心病 </td><td bgcolor='#848284'

align='center' valign='middle'>肺癌"

 End If
 End Sub 'DataGrid1_ItemCreated
 关键的部分是
 tcl.Add(New TableHeaderCell)
 tcl(6).ColumnSpan = 4
 tcl(6).Text = "个人疾病危险性评价</td><td colspan='1' rowspan='2' align=center