DataGrid复杂表头的制作

      Private Sub DataGrid1_ItemCreated(ByVal sender As ObjectByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated
        
If e.Item.ItemType = ListItemType.Header Then
            e.Item.Cells(
0).RowSpan = 2
            e.Item.Cells(
1).RowSpan = 2
            e.Item.Cells(
2).RowSpan = 2
            e.Item.Cells(
3).ColumnSpan = 12
            e.Item.Cells(
3).HorizontalAlign = HorizontalAlign.Center
            
Dim TmpTd As String = "尺   码</td><td RowSpan = 2>总数</td> </tr>"
            TmpTd = TmpTd & "<tr><td  class=""Headstyle""  align=""center"" valign=""top"">24<br>99</td> 
<td class=""Headstyle""  align=""center"" valign=""top"">25</td>"

            TmpTd = TmpTd & "<td class=""Headstyle""  align=""center"" valign=""top"">26<br>XS</td>  
<td class=""Headstyle""  align=""center"" valign=""top"">27<br>S</td>"

            TmpTd = TmpTd & " <td class=""Headstyle""  align=""center"" valign=""top"">28<br>M</td>
<td class=""Headstyle""  align=""center"" valign=""top"">29<br>L</td>"

            TmpTd = TmpTd & "<td class=""Headstyle""  align=""center"" valign=""top"">30<br>XL</td>
<td class=""Headstyle""  align=""center"" valign=""top"">31<br> XXL</td>"

            TmpTd = TmpTd & "<td class=""Headstyle""  align=""center"" valign=""top"">32</td>
<td class=""Headstyle""  align=""center"" valign=""top"">34</td>"

            TmpTd = TmpTd & "<td class=""Headstyle""  align=""center"" valign=""top"">36</td>
<td class=""Headstyle""  align=""center"" valign=""top"">38</td></tr><tr><td>"

            e.Item.Cells(3).Text = TmpTd
            e.Item.Cells(
4).Visible = False
            e.Item.Cells(
5).Visible = False
            e.Item.Cells(
6).Visible = False
            e.Item.Cells(
7).Visible = False
            e.Item.Cells(
8).Visible = False
            e.Item.Cells(
9).Visible = False
            e.Item.Cells(
10).Visible = False
            e.Item.Cells(
11).Visible = False
            e.Item.Cells(
12).Visible = False
            e.Item.Cells(
13).Visible = False
            e.Item.Cells(
14).Visible = False
            e.Item.Cells(
15).Visible = False

        
End If

demo img Url: http://myx.name/demo/demoimg/GridHead.jpg 
posted on 2004-08-31 03:12  myx  阅读(1201)  评论(0编辑  收藏  举报