水晶报表查看器参数不正确

发布于 2024-11-15 06:19:13 字数 1276 浏览 1 评论 0原文

我尝试将参数传递给水晶报表查看器。但显示参数不正确。

<代码> 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>

这些代码中有任何错误吗？

原文

i tried to pass parameter to crystal report viewer. but it show The Parameter is incorrect.

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??

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

我不会写诗 2024-11-22 06:19:13

您应该将参数分配给报表对象，然后将报表对象分配给 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()

You should assign the parameters to your Report object and then assign the report object to your CrystalReportViewer.

Try something like this:

'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()

回复收藏 0 原文

~没有更多了~