Dim rptDoc As New ReportDocument Dim dt As New DataTable Dim rstRep As New ADODB.Recordset st = ConfigurationManager.ConnectionStrings("XXSCL_WebPortelConnectionString").ToString con = New Data.SqlClient.SqlConnection(st) Dim objRpt As New CrystalReport1 con.Open() Dim dscmd As New SqlDataAdapter(sql, con) Dim ds As New DataSet1 dscmd.Fill(ds, "XXSCL_DDR") objRpt.Database.Tables.Item("XXSCL_DDR").SetDataSource(ds) CrystalReportViewer1.ReportSource = objRpt
Dim mypdffile As New DiskFileDestinationOptions mypdffile.DiskFileName = Filename With objReport.ExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .DestinationOptions = mypdffile .ExportFormatType = ExportFormatType.PortableDocFormat End With objReport.Export()
objRpt.Database.Tables.Item("XXSCL_DDR").SetDataSource(ds)
da.Fill(dt) ds.Tables(0).Merge(dt) objRpt.SetDataSource(ds)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)