Question

我有一个表单，显示SQL表中的一些基本信息。我想将此信息打印到Crystal Report。该功能适用于Option strict off。但是，当我打开选项严格时，我得到一个“Option Strict On disallows late binding”错误。

以下是相关代码块。

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
    Cursor = Cursors.WaitCursor
    Try
        Dim frm As New frmReportView
        frm.subject = "CPE Number - " & Me.tbCPE.Text
        frm.MdiParent = Me.MdiParent
        Dim rpt As Object = New CustPropertyEval
        rpt.SetParameterValue("cpe_no", Me.tbCPE.Text)
        SetDataSourceShowReport(frm, rpt)
    Catch ex As Exception
        Cursor = Cursors.Arrow
        MsgBox(ex.Message)
    End Try
    Cursor = Cursors.Arrow
End Sub

后期绑定错误发生在rpt.SetParameterValue（“cpe_no”，Me.tbCPE.Text）行上。如果我注释掉并执行应用程序代码工作正常，但它强制使用输入cpe_no参数。我宁愿不被这个困住。任何人都知道为什么我不能通过选项严格传递该参数？此外，frm是一个显示水晶报告的Windows窗体，而CustPropertyEval是一个名为crystal的报告，它接受一个参数--cpe_no。 TIA

Answer 1

不要做“Dim rpt As Object” - 这会导致你的问题。 “Dim rpt As CustPropertyEval”和Option Strict应该停止抱怨（假设SetParameterValue是CustPropertyEval的方法）。

将参数传递给Crystal Reports时，选项Strict On Late Binding Error

1 个答案: