Private Sub InvoiceReport(ByVal pInvoiceID As String) Dim lCryRpt As New ReportDocument Dim ds As New DataSet Dim lsql As String Dim lXMLPath As String Dim lRPTPath As String lXMLPath = "C:\Alumeel\Reports\InvoiceSheet.xml" lRPTPath = "C:\Alumeel\Reports\InvoiceSheet.rpt" lsql = "Select * From InvoiceItems Where InvoiceID = " & pInvoiceID mdb.FillMyDataSet(lsql, ds, "Invoice") ds.WriteXmlSchema(lXMLPath) lCryRpt.Load(lRPTPath) lCryRpt.SetDataSource(ds) Me.CrystalReportViewer1.ReportSource = lCryRpt Me.CrystalReportViewer1.Update() Me.CrystalReportViewer1.Refresh() Me.Show() End Sub
DiscardSavedData
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)