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:
Posting Komentar