各路豪侠！ 帮分析段代码！小弟在这谢啦！在线等

[qiangyun111]

Dim ds As New DataSet
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sql As String

Dim da As SqlDataAdapter
Dim strstudentname As String
Dim strstudentpass As String
Dim sqlcn As SqlConnection
sqlcn = New SqlConnection
sqlcn.ConnectionString = "workstation id=SG;packet size=4096;integrated security=SSPI;data source=SG;persis" & _
"t security info=False;initial catalog=生物医学工程系信息管理系统"
sqlcn.Open()
Dim sq As String = "select * from 学生成绩"
da = New SqlDataAdapter(sq, sqlcn)
da.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ExportToExcel(ds.Tables(0))

End Sub
Dim myExcel As Excel.Application


Public Sub ExportToExcel(ByVal mytable As DataTable)

Try
Dim datav As New DataView
datav = mytable.DefaultView
Dim i, j As Integer
Dim rows As Integer = datav.Table.Rows.Count
Dim cols As Integer = datav.Table.Columns.Count
Dim DataArray(rows - 1, cols - 1) As String
myExcel = New Excel.Application
For i = 0 To rows - 1
For j = 0 To cols - 1
If datav.Table.Rows(i).Item(j) Is System.DBNull.Value Then
Else
DataArray(i, j) = datav.Table.Rows(i).Item(j)
End If
Next
Next
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
For j = 0 To cols - 1
myExcel.Cells(1, j + 1) = datav.Table.Columns(j).ColumnName
Next
myExcel.Range("A2").Resize(rows, cols).Value = DataArray
myExcel.Quit()

Catch exp As Exception
MessageBox.Show("数据导出错误！ 请查看您是否安装了Excel。")

End Try

End Sub

End Class
这是我的一段VB.NET的代码！是想让DATAGRID的表输出到EXCEL里面！ 课运行老是提示：指定的转化无效！在这句上显示的： ExportToExcel(ds.Tables(0))

[李洪喜]

da.Fill(ds,"A")
DataGrid1.DataSource = ds.Tables(0)


检查一下是不是真正的取回了数据

[qiangyun111]

是呀！datagrid 应经显示出数据来啦

[Fibona]

Response.ClearContent();

Response.AddHeader("content-disposition", "attachment; filename=MyExcelFile.xls");

Response.ContentType = "application/excel";

StringWriter sw = new StringWriter();

HtmlTextWriter htw = new HtmlTextWriter(sw);

DataGrid1.RenderControl(htw);

Response.Write(sw.ToString());

Response.End();

[qiangyun111]

这段代码加到那呀？ 好像不行