Bonjour

Je veux créer un rapport dont les données proviendraient d'un dataTable.
Ce que j'aimerais savoir c'est comment pouvoir insérer les champs dans mon rapport.

Voici mon code : Es-ce qu'il me manque quelque chose ?

Dim strSql As String
Dim sqlConnectionCrps As SqlConnection
Dim sqlCommandCrps As SqlCommand
Dim sqlDataAdapterCrps As SqlDataAdapter

Dim objReport As New _
CrystalDecisions.CrystalReports.Engine.ReportDocument


sqlConnectionCrps = New SqlConnection
sqlConnectionCrps.ConnectionString = CONNECTION_STRING
sqlConnectionCrps.Open()

'On rempli le dataTable _dtAllBolNumber de tous les Bol disponible
strSql = "Select trans_estimate.external_sys_ref_1, a.vendor_invoice_number, a.transaction_date, a.charge_category_code, a.amount " + _
"FROM trans_estimate LEFT OUTER JOIN ( " + _
"select trans_actual.external_sys_ref_1, trans_actual.trans_act_pkid, trans_actual.transaction_date, trans_actual.vendor_invoice_number, trans_actual_detail.charge_category_code, trans_actual_detail.amount " + _
"from trans_actual LEFT OUTER JOIN trans_actual_detail ON trans_actual.trans_act_pkid = trans_actual_detail.trans_act_pkid ) A " + _
"ON trans_estimate.external_sys_ref_1 = a.external_sys_ref_1 "


sqlCommandCrps = sqlConnectionCrps.CreateCommand
sqlCommandCrps.CommandText = strSql

sqlDataAdapterCrps = New SqlDataAdapter(sqlCommandCrps)

sqlCommandCrps.Connection = sqlConnectionCrps

sqlDataAdapterCrps.Fill(_dsDate, "Rapport")

objReport.Load("C:\Documents and Settings\Aguibeault\My Documents\Visual Studio 2005\Projects\FreightTableMaintenance\Rapport\CrystalReport1.rpt")

objReport.SetDataSource(_dsDate.Tables(0))


rptViewer.ReportSource = Nothing


rptViewer.ReportSource = objReport


rptViewer.Show()

Merci