大家帮忙看看从DataGrid中导出到EXCEL为什么出现这样的怪事？谢谢！

[lihongyue]

我的DataGird有一个序号字段，是TemplateColumn列（自动排序的），每次导出都不正确，应该从1开始，可以它从7开始的，为702。还有DataGird里有一个合计是在页脚生成的，每次导出只能显示金额，不能显示“合计”二字，希望大家帮忙看看，谢谢了！
代码如下：
Response.Charset="GB2312";
Response.AppendHeader("Content-Disposition","attachment;filename=myExcel.xls");
Response.ContentEncoding = System.Text.Encoding.UTF8;
Response.ContentType = "application/ms-excel";

ctl.Page.EnableViewState = false;
System.IO.StringWriter tw = new System.IO.StringWriter();
System.Web.UI.HtmlTextWriter hw = new HtmlTextWriter(tw);

ctl.RenderControl(hw);

Response.Write(tw.ToString());
Response.End();

[lihongyue]

调用是：
if (DataGrid1.Items.Count > 0)
{
DataGrid1.Columns.RemoveAt(0); //Delete a TemplateColumn
ToExcel(DataGrid1);
}

[liuyong_lll]

看来你已经取得数据了，如果你要相应的格式，你必须自己控制生成格式

[lihongyue]

大家能否给个C#代码的？谢谢了！

[yungboy]

'datagrid导出到excel
Private Sub WriteDataGrid2Excel2()
Dim xlsheet As New SpreadsheetClass
Dim i As Integer = 0
Dim j As Integer = 0

' 输出标题
Dim oItem As DataGridColumn
For Each oItem In datagrid1.Columns
xlsheet.ActiveSheet.Cells(1, i + 1) = oItem.HeaderText

xlsheet.ActiveSheet.Cells(1, i + 1).Font.Bold = True

'设置格式
xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, i + 1)).Font.Bold = True
xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, i + 1)).Font.Color = "red"
i = i + 1
Next

Dim numbercols As Integer = datagrid1.Items.Item(0).Cells.Count
' 输出字段内容
For j = 0 To datagrid1.Items.Count - 1
For i = 0 To numbercols - 1
xlsheet.Range(xlsheet.Cells(2, 2), xlsheet.Cells(j + 2, i + 1)).Font.Color = "blue"
xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(j + 2, i + 1)).AutoFitColumns()
xlsheet.ActiveSheet.Cells(j + 2, i + 1) = datagrid1.Items.Item(j).Cells(i).Text.Replace(" ", " ")
Next
Next
'页脚文本
For Each oItem In datagrid1.Columns
xlsheet.ActiveSheet.Cells(datagrid1.Items.Count + 2, 20) = "累计"
xlsheet.ActiveSheet.Cells(datagrid1.Items.Count + 2, 21) = oTextbox.Text

Next

Try
'文件输出目录
xlsheet.ActiveSheet.Export(Server.MapPath(".") + "\bak\" + Me.xlfile.Text, OWC.SheetExportActionEnum.ssExportActionNone)
Catch e As System.Runtime.InteropServices.COMException
Response.Write("错误：" + e.Message)
End Try
End Sub

[yungboy]

Dim oTextbox As New TextBox


Private Sub datagrid1_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles datagrid1.ItemCreated
If (e.Item.ItemType = ListItemType.Footer) Then
e.Item.Cells(19).Text = "累计: "
e.Item.Cells(19).HorizontalAlign = HorizontalAlign.Right
oTextbox.Width = New Unit(100, UnitType.Pixel)
oTextbox.Text = GetTotalPrice()
e.Item.Cells(20).Controls.Add(oTextbox)
End If

[leijin01]

TO: yungboy(yungboy)

Dim xlsheet As New SpreadsheetClass这句，说SpreadsheetClass没有定义呀
要怎么定义呢？

[lihongyue]

转换后的C#代码：为什么这两句不行呢
xlSheet.ActiveSheet.Cells[1, i + 1].Font.Bold = True;
“object”并不包含对“Font”的定义
xlSheet.get_Range(xlSheet.Cells[1, 1], xlSheet.Cells[1, i + 1]).Font.Bold = True;
属性、索引器或事件“Bold”不受该语言支持；请尝试直接调用访问器方法“OWC.OWCFont.get_Bold()”或“OWC.OWCFont.set_Bold(bool)”
大家快帮帮忙啊