Torna al Thread
Private Sub frmRepDoc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strProvider As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
Dim NomePerc As String = CStr(Me.txtNomePerc.Text)
Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbTemp\dbTEMP.mdb"
Dim strConnessione As String = strProvider & strOrigine
Dim Conn As OleDb.OleDbConnection
Conn = New OleDb.OleDbConnection(strConnessione)
'Carica la tabella articoli per il report'
Dim cmdArt As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Articoli", strConnessione)
Dim objTable As New DataTable()
cmdArt.Fill(objTable)
'Carica la tabella cliente per il report'
Dim cmdCliente As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Cliente", strConnessione)
Dim objTableCliente As New DataTable()
cmdCliente.Fill(objTableCliente)
'Carica la tabella scadenze/importi per il report'
Dim cmdScadImp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM ScadImp", strConnessione)
Dim objTableScadImp As New DataTable()
cmdScadImp.Fill(objTableScadImp)
'Carica la tabella trasporto per il report'
Dim cmdTrasp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Trasporto", strConnessione)
Dim objTableTrasp As New DataTable()
cmdTrasp.Fill(objTableTrasp)
'Carica la tabella Note per il report'
Dim cmdNote As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM NoteDoc", strConnessione)
Dim objTableNote As New DataTable()
cmdNote.Fill(objTableNote)
Dim RepPath As String = Application.StartupPath & "\dbTemp\FT2.rpt"
Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Report.Load(RepPath)
'Report.SetDataSource(objTable)
'Alimentazione del report con le tabelle caricate'
Report.Database.Tables("Articoli").SetDataSource(objTable)
Report.Database.Tables("Cliente").SetDataSource(objTableCliente)
'Report.Database.Tables("ScadImp").SetDataSource(objTableScadImp)
' Report.Database.Tables("Trasporto").SetDataSource(objTableTrasp)
'Report.Database.Tables("NoteDoc").SetDataSource(objTableNote)
Me.CrystalReportViewer2.ReportSource = Report
End Sub