VB.NET与VS2019中Crystal Report打印发票生成XML参数缺失报错求助

1. 参数缺失异常的核心原因 #

你的代码存在报表加载顺序逻辑错误：

• 先实例化rptInvoice56并设置数据源、参数，之后又调用rpt.Load("rptinvoice56.rpt")——这会重新加载报表模板，直接清空之前设置的数据源和参数值，导致Crystal Reports无法找到参数值，触发ParameterFieldCurrentValueException。
• 同时要确认报表rptinvoice56.rpt中定义的参数名称确实是p1和p2，没有拼写或大小写错误。

2. 修复后完整代码（含XML导出功能） #

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Cursor = Cursors.WaitCursor
    Timer1.Enabled = True
    
    ' 实例化报表（若rptInvoice56是项目内添加的报表类，实例化时已自动加载模板，无需额外Load）
    Dim rpt As New rptInvoice56()
    ' 若需手动加载路径，放在此处（确保路径正确，推荐用相对路径：Application.StartupPath & "\rptinvoice56.rpt"）

    Dim myConnection As SqlConnection
    Dim MyCommand, MyCommand1 As New SqlCommand()
    Dim myDA, myDA1 As New SqlDataAdapter()
    Dim myDS As New DataSet

    myConnection = New SqlConnection(cs)
    MyCommand.Connection = myConnection
    MyCommand1.Connection = myConnection

    ' 主数据查询
    MyCommand.CommandText = "SELECT Customer.ID, Customer.Name, Customer.Gender, Customer.Address, Customer.City, Customer.State, Customer.ZipCode, Customer.ContactNo, Customer.EmailID, InvoiceInfo.Remarks,Customer.Photo, InvoiceInfo.Inv_ID, InvoiceInfo.InvoiceNo, InvoiceInfo.InvoiceDate, InvoiceInfo.CustomerID , InvoiceInfo.GrandTotal, InvoiceInfo.TotalPaid, InvoiceInfo.Balance, Invoice_Product.IPo_ID, Invoice_Product.InvoiceID, Invoice_Product.ProductID, Invoice_Product.CostPrice, Invoice_Product.SellingPrice, Invoice_Product.Margin,Invoice_Product.Qty, Invoice_Product.Amount, Invoice_Product.DiscountPer, Invoice_Product.Discount, Invoice_Product.VATPer, Invoice_Product.VAT, Invoice_Product.TotalAmount, Invoice_Product.Barcode, Product.PID,Product.ProductCode, Product.ProductName FROM Customer INNER JOIN InvoiceInfo ON Customer.ID = InvoiceInfo.CustomerID INNER JOIN Invoice_Product ON InvoiceInfo.Inv_ID = Invoice_Product.InvoiceID INNER JOIN Product ON Invoice_Product.ProductID = Product.PID where InvoiceInfo.Invoiceno=@d1"
    MyCommand.Parameters.AddWithValue("@d1", txtInvoiceNo.Text)
    MyCommand1.CommandText = "SELECT * from Company"

    MyCommand.CommandType = CommandType.Text
    MyCommand1.CommandType = CommandType.Text

    myDA.SelectCommand = MyCommand
    myDA1.SelectCommand = MyCommand1

    ' 填充DataSet各表
    myDA.Fill(myDS, "InvoiceInfo")
    myDA.Fill(myDS, "Invoice_Product")
    myDA.Fill(myDS, "Customer")
    myDA.Fill(myDS, "Product")
    myDA1.Fill(myDS, "Company")

    ' 绑定数据源与参数
    rpt.SetDataSource(myDS)
    rpt.SetParameterValue("p1", txtCustomerID.Text)
    rpt.SetParameterValue("p2", Today)

    ' 显示报表预览
    frmReport.CrystalReportViewer1.ReportSource = rpt
    frmReport.Show()

    ' 导出XML文件
    Try
        ' 使用正确的XML导出格式，替换原错误的PDF格式
        rpt.ExportToDisk(ExportFormatType.Xml, "C:/rpttt.xml")
        MessageBox.Show("XML文件已生成", "导出成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show("导出失败：" & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try

    ' 恢复默认状态
    Cursor = Cursors.Default
    Timer1.Enabled = False
End Sub

3. 关键修复点说明 #

• 调整报表加载逻辑：如果rptInvoice56是项目内添加的报表类，实例化时已自动加载模板，无需额外调用Load()；若必须手动加载路径，需放在设置数据源和参数之前。
• 修正导出格式：原代码用ExportFormatType.PortableDocFormat（PDF格式）却保存为.xml，会导致文件损坏，改为ExportFormatType.Xml才能生成有效XML。
• 增加异常捕获：对导出操作添加异常处理，便于排查导出阶段的问题。
• 优化用户体验：操作完成后恢复默认光标，避免用户误以为程序未响应。

4. 额外检查项 #

• 确认报表内参数p1、p2的数据类型与传入值匹配（比如p2是日期类型，Today是合法的日期值）。
• 检查txtCustomerID.Text是否为空，若参数p1不允许空值，需确保控件有有效值。
• 验证DataSet的表名称与报表绑定的数据源表名称完全一致（区分大小写）。

内容的提问来源于stack exchange，提问作者Hamzah AlAfifi