Dan akhirnya setelah Googling, cara berikut saya coba, dan berhasil.
- Buka Crystal Report, masuk ke File > Option > Reporting > uncheck ‘Save Data With Report‘ > OK.
- Sekarang tambahkan perintah berikut di Visual Basic nya. simpan di bagian button untuk mencetak, contoh nya seperti berikut :
1
CrystalReport1.DiscardSavedData =
True
1
Private
Sub
cmdCetak_Click()
2
CrystalReport1.ReportFileName = App.Path +
"\lapCalonBayar.rpt"
3
CrystalReport1.DiscardSavedData =
True
4
CrystalReport1.ReplaceSelectionFormula
"{pembayaran_calon.no}="
& Adodc3.Recordset!no
5
CrystalReport1.Destination = crptToWindow
6
CrystalReport1.WindowState = crptMaximized
7
CrystalReport1.Action = 1
8
End
Sub
- Sekarang report nya berjalan sebagaimana mestinya. Tiap ada data baru, langsung report nya me-refresh.
No comments:
Post a Comment