Buat seperti ini:
Private Sub Form_Load()
Report.DiscardSavedData 'tambahkan code ini
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 1200
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of iwan gunawan
Sent: 11 Agustus 2008 14:33
To: [EMAIL PROTECTED]; [email protected]
Subject: [Programmer-VB] Refresh cr
Guys, tolongin gw donk, gimana caranya kalo crviewer1 bisa langsung refresh
tanpa hrs tekan tanda petir di cristal reportnya.
Shre donk elmunya, thanks b4.
di bawah ini potongan kodingnya, tambahain yah.
Dim Report As New CrystalReport3
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 1200
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Internal Virus Database is out of date.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.5/1569 - Release Date: 7/23/2008
1:31 PM
