我有水晶报告的问题 . 这就是场景 .

我想从vb.net打印到打印机 - > crystal Report - > Printer .

有一个名为DOType的空白字段 . 当我运行该程序时,我想打印1个原件(空白字段称为DOType已更改为“原始”)和2个副本(空白字段称为DOType已更改为“COPY”)

这是我的代码:

Dim cryRpt As New ReportDocument
    cryRpt.Load("RASManualDeliveryOrder.rpt")
    Dim crParameterDiscreteValue As ParameterDiscreteValue
    Dim crParameterFieldDefinitions As ParameterFieldDefinitions
    Dim crParameterFieldDefintion As ParameterFieldDefinition
    Dim crParameterValues As ParameterValues

    crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
    crParameterFieldDefintion = crParameterFieldDefinitions.Item("@DOType")
    crParameterValues = crParameterFieldDefintion.CurrentValues
    crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
    crParameterDiscreteValue.Value = "ORIGINAL"
    crParameterValues.Add(crParameterDiscreteValue)
    crParameterFieldDefintion.ApplyCurrentValues(crParameterValues)
    Form1.CrystalReportViewer1.ReportSource = cryRpt
    Form1.CrystalReportViewer1.Refresh()
    Form1.Show()

在“crParameterFieldDefintion = crParameterFieldDefinitions.Item(”@ DOType“)中发生错误”

显示错误:索引无效 . (HRESULT异常:0x8002000B(DISP_E_BADINDEX)

任何的想法 ?