Hi im developing an asp.net report using vb language. I created the report previously using datagrid,which works well when i click the export button. It downloads the datagrid to excel format. But now i need to add anew header to the report,so i changed to using table which seems as a solution to the problem. I've managed to create the table and produce the report,but now i've to export th etable to excel format same as the one i did for my datagrid. I truied to just modify the code to my table name,but when it downloads, there is only a single empty cell in the excel file.
I paste my code so that anyone could point where is my mistake.
My aspx page
<form id="form1" runat="server">
<table style="width: 600px">
<tr>
<td class="headertext" style="width: 798px" >
SUMMARY REPORT SINGAPORE ( ALL)
</td>
</tr>
<tr><td class="textfont" style="width: 798px; height: 17px;" >
<asp:Label ID="lblMessage" runat="server" Text="Label" Width="264px"></asp:Label></td></tr>
</table>
<br />
<asp:Table ID="tblSummAllSg" runat="server" Font-Names="Verdana" BorderWidth="1"
Font-Size="XX-Small">
</asp:Table>
<br />
<br />
<table align="center">
<tr><td>
<asp:Button ID="btnExport" runat="server" Text="Export As Excel" BorderColor="#C00000" />
</td></tr>
</table>
</form>My code behing page (on page load method)
Dim tableHeading As TableRow = New TableRow()
'Create and add the cells that contain the CallDate column heading text.
Dim DateHeading As TableHeaderCell = New TableHeaderCell()
DateHeading.Text = "Call In Date"
DateHeading.HorizontalAlign = HorizontalAlign.Center
tableHeading.Cells.Add(DateHeading)
'Create and add the cells that contain the Calls column heading text.
Dim TotalCallHeading As TableHeaderCell = New TableHeaderCell()
TotalCallHeading.Text = "Total Calls"
TotalCallHeading.ColumnSpan = 5
TotalCallHeading.HorizontalAlign = HorizontalAlign.Center
tableHeading.Cells.Add(TotalCallHeading)
Dim tableHeading2 As TableRow = New TableRow()
Dim CallInDateHeading As TableCell = New TableCell()
CallInDateHeading.Text = "Call In Date"
CallInDateHeading.HorizontalAlign = HorizontalAlign.Center
tableHeading2.Cells.Add(CallInDateHeading)
Dim InBoundOutBoundHeading As TableCell = New TableCell()
InBoundOutBoundHeading.Text = "InBound/OutBound"
tableHeading2.Cells.Add(InBoundOutBoundHeading)
tblSummAllSg.Rows.Add(tableHeading)
tblSummAllSg.Rows.Add(tableHeading2)
While (objreader.Read())
Dim detailsRow As TableRow = New TableRow()
Dim CallInDateCell As TableCell = New TableCell()
CallInDateCell.Text = objreader("CallInDate").ToString()
detailsRow.Cells.Add(CallInDateCell)
Dim InBoundOutBoundCell As TableCell = New TableCell()
InBoundOutBoundCell.Text = objreader("InBoundOutBound").ToString()
detailsRow.Cells.Add(InBoundOutBoundCell)
Dim IncompletePrankCell As TableCell = New TableCell()
IncompletePrankCell.Text = objreader("IncompletePrank").ToString()
detailsRow.Cells.Add(IncompletePrankCell)
tblSummAllSg.Rows.Add(detailsRow)
End WhileMy code behing page (on export button click)
Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
' binding datagrid result to export list
Response.Clear()
Response.AddHeader("content-disposition", "attachment;filename=DetailReport.xls")
Response.Charset = ""
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.ContentType = "application/vnd.xls"
Dim stringWrite As IO.StringWriter = New System.IO.StringWriter()
Dim htmlWrite As HtmlTextWriter = New HtmlTextWriter(stringWrite)
tblSummAllSg.RenderControl(htmlWrite)
Response.Write(stringWrite.ToString())
Response.End()
End SubI really hope someone can help me solve this. Im not sure now if doing this report as table is a solution to the datagrid problem. Im running out of idea and time. Any help is really appreciated. Thank you in advance.