Halo teman2,
Saya ada masalah dlm pengiriman formula pd crystal report, sebelumnya sy
membuat formula dgn nama SubJudul, pd saat sy kirim formulas via VB, muncul
error subscript out of range...begitu jg halnya kalo indexnya sy ganti dgn 1 (
Rpt.FormulaFields(1) ). Mohon bantuannya, terima kasih...
Dim Rpt As CRAXDRT.Report
Dim RptApp As New CRAXDRT.Application
Set Rpt = RptApp.OpenReport(RptFile)
Rpt.FormulaFields(0) = "SubJudul='" & sSubJudul & "'"
Rpt.Database.SetDataSource Adodc1.Recordset
Rpt.DiscardSavedData
rptViewer.ReportSource = Rpt
rptViewer.ViewReport
Me.Show vbModal
