Hi Patrick,
Here is the code snippet:
Private Sub btnExcel_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnExcel.Click
Try
Dim dsExcel As New DataSet
dsExcel = dbData.getCDWorldAll
If Not dsExcel Is Nothing Then
ConvertToExcel(dsExcel, Response)
End If
Catch ex As Exception
errLog.LogIt("Creating Excel SpreadSheet Error", ex, "")
End Try
end Sub
Public Shared Sub ConvertToExcel(ByVal ds As System.Data.DataSet, ByVal
response As System.Web.HttpResponse)
response.Clear()
response.Charset = ""
response.ContentType = "application/vnd.ms-excel"
Dim stringWrite As New System.IO.StringWriter
Dim htmlWrite As New System.Web.UI.HtmlTextWriter(stringWrite)
Dim dg As New System.Web.UI.WebControls.DataGrid
dg.DataSource = ds.Tables(0)
dg.DataBind()
dg.RenderControl(htmlWrite)
response.Write(stringWrite.ToString)
response.End()
End Sub
I mean it does whats required but at the sametime goes into "catch" and
shows error.
Thanks,
Stephen