sheet, I need output as like this but iam getting only one data table that lastly bind
Public Sub ExportToSpreadsheett(ByVal table As DataTable, ByVal table1 As DataTable, ByVal name As String, ByVal strReadString As String)
Try
If table.Rows.Count > 0 Then
Dim attachment As String = "attachment; filename=" & name & Format(CDate(Now), " ddMMyyyy_hhmmss") & ".xls"
HttpContext.Current.Response.ClearContent()
HttpContext.Current.Response.AddHeader("content-disposition", attachment)
HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"
Dim userrtype As Integer
userrtype = CType(HttpContext.Current.Session("UserType"), Integer)
' HttpContext.Current.Response.Write("
")
HttpContext.Current.Response.Write("
")
HttpContext.Current.Response.Write(strReadString)
HttpContext.Current.Response.Write("
")
HttpContext.Current.Response.Write("Stockist not present in master distributor : ")
HttpContext.Current.Response.Write(vbLf)
Label1.Text = strReadString.ToString()
Dim GridView1 As New GridView()
GridView1.DataSource = table
GridView1.AllowPaging = False
GridView1.DataBind()
HttpContext.Current.Response.Write("
")
HttpContext.Current.Response.Write("
")
HttpContext.Current.Response.Write(" List of CompanyFF User Id Not Present ")
HttpContext.Current.Response.Write(vbLf)
Dim GRidView2 As New GridView()
GridView1.DataSource = table1
GridView1.AllowPaging = False
'GRidView2.DataBind()
GridView1.DataBind()
Dim sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)
'Change the Header Row back to white color
GridView1.HeaderRow.Style.Add("background-color", "#FFFFFF")
GridView1.HeaderStyle.Font.Bold = True
'Apply style to Individual Cells
For i As Integer = 0 To table.Columns.Count - 1
GridView1.HeaderRow.Cells(i).Style.Add("background-color", "#C2D69B")
Next
GridView1.RenderControl(hw)
Response.Output.Write(sw.ToString())
HttpContext.Current.Response.Flush()
HttpContext.Current.Response.SuppressContent = True
HttpContext.Current.ApplicationInstance.CompleteRequest()
'HttpContext.Current.ApplicationInstance.CompleteRequest()
Else
DisplayAlert("No Records Found!")
End If
Catch excp As Exception
Errors.WriteToErrorLogWithUserName(excp, "", Session("UserName").ToString())
End Try
End Sub
Please do need full to me