Codes in VB
Dim dt As New DataTable()
dt = [Module].fillgridProject()
Try
If dt.Rows.Count > 0 Then
Dim rptdoc As New ReportDocument()
rptdoc.Load(Server.MapPath("~\Reports\ModuleReport.rpt"))
rptdoc.SetDataSource(dt)
Dim exportOpts1 As ExportOptions = rptdoc.ExportOptions
rptdoc.ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
rptdoc.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
rptdoc.ExportOptions.DestinationOptions = New DiskFileDestinationOptions()
DirectCast(rptdoc.ExportOptions.DestinationOptions, DiskFileDestinationOptions).DiskFileName = Server.MapPath("ProjectReport.pdf")
rptdoc.Export()
rptdoc.Close()
rptdoc.Dispose()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.AppendHeader("Content-Disposition", "attachment; filename=ProjectReport.pdf")
Response.WriteFile("ProjectReport.pdf")
Response.Flush()
Response.Close()
System.IO.File.Delete(Server.MapPath("ProjectReport.pdf"))
Else
Messagebox1.Show("No Record for this District")
End If
Catch
Page.ClientScript.RegisterStartupScript(Me.[GetType](), "Hello", "javascript:alert('No Data Present');", True)
End Try