Public Sub stampa_rec(ByVal ntipo As String, ByVal del As String)
connessione()
Dim da As OleDbDataAdapter = New OleDbDataAdapter
Dim sql As String
sql = "SELECT clienti.id, clienti.ragione, clienti.cognome, clienti.nome, clienti.via, " & _
"clienti.citta, clienti.provincia, clienti.cap, clienti.codicefiscale, clienti.piva, " & _
"documenti.codice, documenti.descrizione, documenti.quantita, documenti.prezzo, " & _
"documenti.causale, documenti.trasporto, documenti.numero, documenti.data, documenti.aspetto, " & _
"documenti.colli, documenti.tipo, clienti.annotazioni FROM clienti INNER JOIN documenti ON clienti.id=documenti.cliente where numero='" & ntipo & "' and data='" & del & "' order by documenti.id asc"
Dim dbcerca As OleDbCommand = New OleDbCommand(sql, conn)
dbcerca.CommandType = CommandType.Text
da.SelectCommand = dbcerca
Dim dt As New DataTable
da.Fill(dt)
Dim report As New reportddt
report.Load(AppDomain.CurrentDomain.BaseDirectory + "reportddt.rpt")
report.SetDataSource(dt)
CrystalReport.ReportSource = report
CrystalReport.Show()
end Sub