请高手指点,出现如此怪现象:datagrid数据导入Excel,标题头总有一空行,最后统计行总是显示不出
qulie 2004-11-22 03:09:22 内容如题,datagrid是双层表头,网页显示正常,但导入Excel就出现标题头总有一空行,最后统计行总是显示不出,双层表头设置代码(datagrid_ItemDataBound事件中)如下:
Dim i, j As Int16
i = 1
j = e.Item.Cells.Count
Dim t As Table
t = grd.Controls(0)
If e.Item.ItemType = ListItemType.Header Then
Dim row As DataGridItem
row = New DataGridItem(0, -1, ListItemType.Header)
Dim row1 As DataGridItem
row1 = New DataGridItem(0, -1, ListItemType.Header)
t.Rows.AddAt(0, row)
t.Rows.AddAt(1, row1)
For i = 1 To j / 6
Dim cell1 As New TableCell
If i = j / 6 Then
cell1.Text = "合计"
Else
cell1.Text = i.ToString + "号"
End If
cell1.ColumnSpan = 6
cell1.HorizontalAlign = HorizontalAlign.Center
cell1.BorderColor = System.Drawing.Color.White
row.Cells.Add(cell1)
Dim cell2 As New TableCell
Dim cell3 As New TableCell
Dim cell4 As New TableCell
Dim cell5 As New TableCell
Dim cell6 As New TableCell
Dim cell7 As New TableCell
cell2.Text = "Shops"
row1.Cells.Add(cell2)
cell3.Text = "A1"
row1.Cells.Add(cell3)
cell4.Text = "A2"
row1.Cells.Add(cell4)
cell5.Text = "B1"
row1.Cells.Add(cell5)
cell6.Text = "B2"
row1.Cells.Add(cell6)
cell7.Text = "C"
row1.Cells.Add(cell7)
Next
t.Rows.RemoveAt(t.Rows.Count - 1)
End If
如果去掉以上双层表头设置代码,导入EXcel显示就会正常,
研究了半天,还是弄不出头绪,希望各位高手指点!急!急!