Param1 = objDB.GetFieldValue(sSQL, 0)
Param2 = objDB.GetFieldValue(sSQL, 1)
Param3 = objDB.GetFieldValue(sSQL, 2)
cSQL = ReportSQL
.FillDataSet(cSQL, ReportDataSet)
ds = .DSet
End With
crReportDocument.Load(RptPath & ReportFile)
crReportDocument.SetDataSource(ds.Tables(0))
crReportDocument.SetParameterValue("@Dibuat", Param1)
crReportDocument.SetParameterValue("@Diperiksa", Param2)
crReportDocument.SetParameterValue("@Disetujui", Param3)
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
CR.Visible = True
CR.ReportSource = crReportDocument
CR.RefreshReport()
CR.DisplayGroupTree = False
ds = Nothing
Я хочу передать параметры в Crystal Report, но он всегда показывает всплывающее окно для вставки параметров, вы можете мне помочь?
Заранее спасибо