Probleme avec Crystal report 10 pour ouvrir un fichier ****.rtp

[Résolu]
Signaler
Messages postés
24
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
20 février 2010
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjours a tous j'ai un soucis que je n'avais pas avant et je ne sait pas pour cela fonctionne plus?????
Code n VB6 et crystal report10 sp5
Mon code:
Private Sub Command1_Click()
Dim CrAppl As New CRAXDRT.Application
Dim CrRep As New CRAXDRT.Report

 Set CrRep = CrAppl.OpenReport(LireINI("Impression", "Fichier Devis")) donc dans mon fichier ini je recuperer exemple C:\test.rtp
 CrystalActiveXReportViewer1.ReportSource = CrRep
 CrystalActiveXReportViewer1.ViewReport
End Sub
avant cela fonctionnait maintenant et pourquoi cela fonctionne plus ? message d'erreur fichier introuvable
Bien sur si je met:
Private Sub Command1_Click()

Dim CrAppl As New CRAXDRT.Application

Dim CrRep As New CRAXDRT.Report


 Set CrRep = CrAppl.OpenReport("C:\Test.rtp")

 CrystalActiveXReportViewer1.ReportSource = CrRep

 CrystalActiveXReportViewer1.ViewReport
Ok
???? une idée
Merci

3 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
RPT <> RTP

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
Pas mettre de New pour le Report... une nouvelle instance est de toute facon renvoyée par OpenReport.
On peut donc simplement faire :


Dim CrAppl As New CRAXDRT.Application
Set CrystalActiveXReportViewer1.ReportSource = CrAppl.OpenReport("C:\Test.rtp")
CrystalActiveXReportViewer1.ViewReport
Messages postés
24
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
20 février 2010

Merci
Ridicule comment j'ai pu passer a cote de ça
Encore merci