0

パラメータをCrystal Report Viewerに渡そうとしました。しかし、それはパラメータが間違っていることを示しています。

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>

これらのコードにエラーはありますか??

4

1 に答える 1

0

パラメータを Report オブジェクトに割り当ててから、そのレポート オブジェクトを CrystalReportViewer に割り当てる必要があります。

次のようなことを試してください：

'Create report object and load the report
Dim rpt As New ReportDocument()
rpt.FileName = My.Application.Info.DirectoryPath & "\MAuditList.rpt"

'Set the Parameters
Dim paramDV As New ParameterDiscreteValue()
paramDV.Value = "Parameter Value"
rpt.ParameterFields("@ParameterName").CurrentValues.Clear()
rpt.ParameterFields("@ParameterName").DefaultValues.Clear()
rpt.ParameterFields("@ParameterName").CurrentValues.Add(paramDV)

'Assign the report object to the Viewer Report Source
Form1.CrystalReportViewer1.ReportSource = rpt
Form1.Show()
于 2011-06-13T07:55:29.717 に答える