Wie das regenerieren von crystal-Reports-Bericht?

Mit VB6 UND Crystal Reports-Bericht 9

In meine software, wenn ich meinen Bericht, es ist die Anzeige eines alten Daten, wenn es änderungen in den Daten vor, jedes mal, wenn ich aktualisieren mein Bericht. Wie Bericht automatisch aktualisieren, wenn ich meine software.

Code

Dim crApp As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Set crApp = New CRAXDRT.Application
Set Report = crApp.OpenReport(App.Path & "\ScheduleReport.rpt")
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.EnableExportButton = True
CRViewer1.DisplayGroupTree = False
CRViewer1.EnableSearchControl = False
CRViewer1.Zoom (100)

Versuchte ich CRViewer1.aktualisieren, Es zeigt Fehler

Wie regenerieren Sie den Bericht in meinem code selbst.

Müssen VB6 code Helfen

InformationsquelleAutor Gopal | 2009-12-22
  1. 4

    Versuchen, verwerfen Sie die gespeicherten Daten vor der Einstellung der Zuschauer berichten, Quelle 

    Report.DiscardSavedData
CRViewer1.ReportSource = Report
    • Sie können auch Bearbeiten Sie den Bericht und un-wählen Sie die "Daten Speichern mit Bericht" - option unter dem Menü Datei.
    InformationsquelleAutor Anand Shah
  2. 0
    'After searching hours...this is the solution for Refresh......
Dim Appl As New CRAXDRT.Application
Dim rpt As New CRAXDRT.Report

Private Sub CRV1_RefreshButtonClicked(UseDefault As Boolean)
    CRV1.Refresh
End Sub

Private Sub Form_Activate()
    CRV1_RefreshButtonClicked True   'This EVENT IS IMPORTANT FOR REFRESH
End Sub

Private Sub Form_Load()
    ReportPath = App.Path & "\YourReportFile.rpt"
    Set Appl = New CRAXDRT.Application
    Set rpt = Appl.OpenReport(ReportPath)
    If rpt.HasSavedData Then rpt.DiscardSavedData
    rpt.VerifyOnEveryPrint = True
    CRV1.ReportSource = rpt
    CRV1.Refresh
    CRV1.ViewReport
End Sub
    InformationsquelleAutor binu narayanan
Schreibe einen Kommentar