DataGrid多层表头设计1

<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