Я попытался передать параметр в Crystal Report Viewer.но он показывает, что параметр неверен.
Dim rpt As New ReportDocument</p>
<pre> rpt.FileName = My.Application.Info.DirectoryPath & "\MAuditList.rpt"
Dim paramDV As New ParameterDiscreteValue()
paramDV.Value = frmMachine.machine
rpt.ParameterFields("@mchno").CurrentValues.Clear()
rpt.ParameterFields("@mchno").DefaultValues.Clear()
rpt.ParameterFields("@mchno").CurrentValues.Add(paramDV)
paramDV.Value = frmMachine.batch - 1
rpt.ParameterFields("@batch").CurrentValues.Clear()
rpt.ParameterFields("@batch").DefaultValues.Clear()
rpt.ParameterFields("@batch").CurrentValues.Add(paramDV)
paramDV.Value = InpStdPt
rpt.ParameterFields("@Points").CurrentValues.Clear()
rpt.ParameterFields("@Points").DefaultValues.Clear()
rpt.ParameterFields("@Points").CurrentValues.Add(paramDV)
paramDV.Value = OvrPoints
rpt.ParameterFields("@ovrpt").CurrentValues.Clear()
rpt.ParameterFields("@ovrpt").DefaultValues.Clear()
rpt.ParameterFields("@ovrpt").CurrentValues.Add(paramDV)
Form1.CrystalReportViewer1.ReportSource = rpt
Form1.Show()
любая ошибка в этом коде ??