DataGrid复杂表头的制作

最新推荐文章于 2022-08-07 13:37:46 发布

weixin_30314631

最新推荐文章于 2022-08-07 13:37:46 发布

阅读量63

点赞数

CC 4.0 BY-SA版权

文章标签： ui

原文链接：http://www.cnblogs.com/myx/archive/2004/08/31/37934.html

该博客为转载内容，转载自https://www.cnblogs.com/myx/archive/2004/08/31/37934.html ，原内容可能与UI相关。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub DataGrid1_ItemCreated()Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal 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 99</td>
<td class=""Headstyle"" align=""center"" valign=""top"">25</td>"

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

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

TmpTd = TmpTd & "<td class=""Headstyle"" align=""center"" valign=""top"">30 XL</td>
<td class=""Headstyle"" align=""center"" valign=""top"">31 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