olanfr
Messages postés46Date d'inscriptionmardi 9 décembre 2003StatutMembreDernière intervention25 novembre 2006
-
16 avril 2004 à 10:04
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 2006
-
16 avril 2004 à 10:54
Bonjour à tous,
Je dois développer une application Vb.Net à partir de laquelle je dois afficher un état Crystal report dans une visionneuse.
J'utilise Vb.Net version Standard et Crystal report version 9.
L'état crystal est déjà créé, je n'ai pas besoin de passer de paramètre du type Dsn, formule de sélection..., à partir de vb.net.
Il suffit simplement d'ajouter, je suppose, un composant du type Visionneuse Crystal (axCrViewer9) et de lui passer en paramètre le chemin d'accès au fichier.
Le pb est que je ne sais pas la propriété à utiliser pour définir le chemin d'accès au fichier . J'ai bien trouvé quelques exemples mais dans tous, la référence CrystalReports.CrystalDecisions.Engine est utilisée. Cependant je ne trouve pas cette référence sur mon poste. Quelqu'un pourrait il me dire quelle librairie il faut utiliser ou me donner un tit exemple.
D'avance merci
Olan
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 16 avril 2004 à 10:54
labout
Voici ce que j'utilise
Dim rptDrillDown As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDrillDown.Load(sAdrRpt & rapport & ".rpt")
' Load the report
If Dir(sAdrRpt & rapport & ".rpt") <> "" Then
rptDrillDown.Load(sAdrRpt & rapport & ".rpt")
For Each tbCurrent In rptDrillDown.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
frm.CrystalReportViewer1.ReportSource = rptDrillDown
rptDrillDown.Database.Tables.Item("Immo").SetDataSource(dataset)
If iAnnee > 0 Then
frm.CrystalReportViewer1.SelectionFormula = "year({immo.datesaisie})=" & iAnnee
End If
CType(rptDrillDown.SummaryInfo, CrystalDecisions.CrystalReports.Engine.SummaryInfo).ReportTitle = "Immobilisations " & titre
frm.CrystalReportViewer1.Zoom(2)
frm.ShowDialog()
rptDrillDown.Dispose()
rptDrillDown = Nothing
frm.Dispose()
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
Else
MsgBox("L'état " & sAdrRpt & rapport & ".rpt est absent.", MsgBoxStyle.Critical)
End If