Option Strict On將綁定參數傳遞給Crystal Reports時出現錯誤

Question

我有一個窗體顯示SQL表中的一些基本信息。我想將這些信息打印到Crystal Report中。該功能與Option嚴格關閉很好。但是，當我嚴格打開選項時，出現「Option Strict On禁止延遲綁定」錯誤。

這裏是有問題的代碼塊。

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是接受一個參數的水晶報表--cpe_no。 TIA

Answer 1

不要做「昏暗rpt作爲對象」 - 這是導致您的問題。 「Dim rpt As CustPropertyEval」和Option Strict應停止抱怨（假設SetParameterValue是CustPropertyEval的一種方法）。