Probleme avec Crystal report 10 pour ouvrir un fichier ****.rtpRésolu

Question

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:	est.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

Renfield · Accepted Answer

RPT <> RTP

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_titi2b · Answer

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

Renfield · Answer

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

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

3 réponses

Votre réponse

Discussions similaires