ciao a tutti
sto usando crystal report 8.5 in inglese
ho creato un report ieri
stamattina ho modificato dei dati ma quando lo apro da vb con la sub qui sotto mi fa vedere ancora i dati di ieri
ci ho hanche messo due refresh prima del filtro e prima di aprirlo ma niente, anche dopo che me l'ha aperto clicco sul fulmine (aggiorna) ma non se ne parla proprio
anche aprendo il file rpt mi faceva vedere i dati vecchi ma
facendo Refresh Report Data me li aggiorna
dove sbaglio:master:
Sub VisRptRiepilogo()
On Error GoTo GestErr
Dim frmRpt As Form
Dim sqlstringa As String
Set frmRpt = New frmreport
Load frmRpt
Dim crAPP As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Set Report = crAPP.OpenReport(AppPath(app.Path) & "Crystal\" & "rptriep.rpt")
frmRpt.Caption = "Riepilogo"
frmRpt.CRViewer1.Move 50, 50, Screen.Width - 200, Screen.Height - 1000
frmRpt.CRViewer1.ReportSource = Report
frmRpt.Refresh
Report.RecordSelectionFormula = sqlstringa
frmRpt.Refresh
frmRpt.CRViewer1.ViewReport
frmRpt.Show vbModal
Set Report = Nothing
Set crAPP = Nothing
Exit Sub
GestErr:
MsgBox err.Number & " " & err.Description
End Sub
grazie a tutti ciao ciao