Question

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

我想从vb.net打印到打印机 - ＆gt;水晶报告 - ＆gt;打印机。

有一个名为DOType的空白字段。当我运行该程序时，我想打印1个原件（空白字段称为DOType已更改为＆＃34; ORIGINAL＆＃34;）和2个副本（空白字段称为DOType已更改为＆＃34; COPY＆＃34;）

这是我的代码：

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

在＆＃34; crParameterFieldDefintion = crParameterFieldDefinitions.Item（＆＃34; @ DOType＆＃34;）＆＃34;

中发生错误

显示错误：索引无效。（来自HRESULT的异常：0x8002000B（DISP_E_BADINDEX）

有什么想法吗？

使用vb.net在运行时更改文本对象水晶报告

0 个答案: