Я попытался передать параметр в программу просмотра отчетов Crystal Report. но это показывает, что параметр неверен.
Dim rpt As New ReportDocument
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()</code>
any error in these code??