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
Partager