I have a SQLite database with 8 different tables.
In the page header of a report, I like to have the fields from the Order table.
In the body I like to have the fields of the Part table.
For both I need a separate SQL statemen like:
SQL=SELRECT * FROM Order WHERE Number=+Str(Number)+ ;
And for the other fields:
SQL=SELRECT * FROM Part WHERE Number=+Str(Partnumber)+ ;
But I can run only one report.
Dim Order As RecordSet
Order=DBase.SQLSelect(SQL)
Dim ps As New PrinterSetup
If ps.PageSetupDialog Then
Dim g As Graphics
g = OpenPrinterDialog(ps, Nil)
If g <> Nil Then
If rpt.Run(Order, ps) Then
rpt.Document.Print(g)
End If
End If