DataGrid多层表头设计

作者：来源：添加时间：2006-5-21 19:38:59

<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