Filter Crystal Report melalui Visual Basic (VB) 6.0

Ketika membuat laporan melalui Crystal Report maka secara normal akan muncul 2 object
yaitu :
1. Report
2. Form

Bukalah Form tersebut, disitu kita akan lihat bahwa sebenarnya pada Form yang tercipta telah tertempel komponen CRViewer seperti yang tampak pada gambar berikut ini :

Berikutnya masuklah ke dalam tampilan code, anda cari event Form_Load(), disitu akan anda jumpai code yang secara otomatis tercipta ketika membuat Crystal Reprort tadi.

Nah sisipkan perintah Filter di tengah baris code tersebut.
Berikut adalah contoh perintah Filter-nya :

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Report.RecordSelectionFormula = "{DEPercobaan_RepHardware.kdhard}='OPR-01'"
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Selamat mencoba ...

0 komentar: