vb.net - 在 Crystal Report VB.NET 中加载报表失败

Question

这个问题可能很常见，但我的方法与其他人完全不同。
请把问题做一遍。

以下代码的形式是说Form1.vb

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Dim rpt As New ReportDocument
    rpt = checkReport()
    DisplayReport(rpt)
End Sub


Private Function checkReport() As ReportDocument
    checkReport = New ReportDocument
    Try
        Select Case Data
                Case "BILLFORMAT"
                    checkReport = New Bill
                Case "BILLFORMAT1"
                    checkReport = New Bill1
                Case "BILLFORMAT2"
                    checkReport = New Bill2
                Case "BILLFORMAT3"
                    checkReport = New Bill3
            End Select
    Catch ex As Exception
        Throw
    End Try
    Return checkReport
End Function

在 ModReport 模块中

Public Sub DisplayReport(ByVal orptname As ReportDocument)
    With orptname
        .DataSourceConnections.Clear()
        .DataSourceConnections.Item(0).SetConnection("tcp:" + PubServer + "," + PubPort, Pubdbname, PubUid, PubPwd)
        .SetParameterValue("@CompYear", PubYear1)
        .SetParameterValue("@CompNo", mComp1)
        .SummaryInfo.ReportTitle = "REPORTXYZ"
        CReports.CRViewer.ReportSource = rpt
        CReports.CRViewer.Zoom(150)
        CReports.BringToFront()
        CReports.Show()
    End With

CReports是一个 vb 表单，其中包含一个名为CRViewer
In CReports 的停靠水晶报表查看器，我什至编写了以下内容以在退出按钮中处理报表变量

CRViewer.ReportSource.Close()
CRViewer.ReportSource.Dispose()
CRViewer.Dispose()
Me.Close()

一段时间内一切正常，但经过一些工作后，它会引发加载报告失败错误。
难道我做错了什么？有没有办法消除这个错误？

标签： vb.netcrystal-reports