Как обновить отчет Crystal?

Question

Использование VB6 И Crystal Report 9

В моем программном обеспечении, когда я просматриваю свой отчет, оно отображает старые данные, если в них есть какие-либо изменения каждый раз, когда мне нужно обновить свой отчет. Как автоматически обновлять отчет при запуске моего программного обеспечения.

код

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)

Я пытался CRViewer1.refresh, он показывает ошибку

Как обновить отчет в самом коде.

Нужен справочный код VB6

Answer 1

Попробуйте сбросить сохраненные данные перед настройкой источника отчета для зрителей

Report.DiscardSavedData
CRViewer1.ReportSource = Report

Answer 2

'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