-K2-
25-05-2004, 17:54
Dim CR As New CRAXDRT.Application
Dim Report as New CRAXDRT.Report
Set report = CR.OpenReport"C:\GesCom\Manodopera.rpt")
report.Database.LogOnServer "pssodbc.dll", "server", "db", "Id", " pwd"
report.Database.Verify
frmReport.CRViewer1.ReportSource = report
frmReport.CRViewer1.ViewReport
frmReport.CRViewer1.Refresh
Set Report = Nothing
Set CR = Nothing
Questo codice che a vedere così non fa una piega mi procura quest'errore:
Method 'Refresh' of object 'ICrystalReportViewer3' failed
il debug mi evidenza la riga
frmReport.CRViewer1.Refresh
La cosa buffa è che se premo F5 il l'inteprete esegue l'istruzione successiva ed il report viene aggiornato correttamente.
Spiegazioni????
Soluzioni?????
Grazie mille:muro: :muro: :muro: :muro: :muro: :muro:
:muro: :muro: :muro: :muro: :muro: :muro: :muro:
Dim Report as New CRAXDRT.Report
Set report = CR.OpenReport"C:\GesCom\Manodopera.rpt")
report.Database.LogOnServer "pssodbc.dll", "server", "db", "Id", " pwd"
report.Database.Verify
frmReport.CRViewer1.ReportSource = report
frmReport.CRViewer1.ViewReport
frmReport.CRViewer1.Refresh
Set Report = Nothing
Set CR = Nothing
Questo codice che a vedere così non fa una piega mi procura quest'errore:
Method 'Refresh' of object 'ICrystalReportViewer3' failed
il debug mi evidenza la riga
frmReport.CRViewer1.Refresh
La cosa buffa è che se premo F5 il l'inteprete esegue l'istruzione successiva ed il report viene aggiornato correttamente.
Spiegazioni????
Soluzioni?????
Grazie mille:muro: :muro: :muro: :muro: :muro: :muro:
:muro: :muro: :muro: :muro: :muro: :muro: :muro: