|
Coba Bantu nih...
Kalo misalnya di VB yang di jadikan Patokan adalah
txtNama1.text dan txtNama2.text maka di CR di buat sebagai berikut
:
di Module :
Public crptformula As String
Public STATUS_PRINT As String Di Form Cetak :
Dim crtNama as new crNama
Select Case STATUS_PRINT
Case Is = "ByName"
crptformula = Empty crptformula = "{TBL_Nama.Nama} LIKE '" & frmNama.txtNama1.Text & frmNama.txtNama2.Text & "'"
Set crtNama=
New crNama
crtNama.RecordSelectionFormula = crptformula CRViewer1.ReportSource = crtNama End Select
CRViewer1.ViewReport Semoga membantu
Best Regards
C.L
|
