Ошибка отсутствия параметра после перехода с VS 2008 на VS 2013 в отчете Crystal - PullRequest
0 голосов
/ 07 января 2019

Я перенесу свой проект с VS 2008 на VS 2013, все работает нормально, но отчет Crystal выдает ошибку «Отсутствуют параметры», при отладке моего кода все параметры передаются из кода, но когда дело доходит до экспорта в dist через ошибку «Отсутствуют параметры», мой последняя версия отчета Crystal - 13.0.2000.0, а моя старая версия отчета Crystal - 10.5.3700.0

  Dim rName As String
    Dim _Report As New rptObject
    crReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Select Case ReportType
        Case "ACCOUNTS-CASHBANKBOOK"
            rName = "CashBankBookReport"
            crReportDocument.Load(Server.MapPath("../Reports/" + rName + ".rpt"))
            With _Report
                .AddParameter("User Name", Session("UserName"), crReportDocument)
                .AddParameter("CompanyName", Session("CompanyName"), crReportDocument)
                .AddParameter("@AccountCode", AccountCode, crReportDocument)
                .AddParameter("AccountTitle", AccountTitle, crReportDocument)
                .AddParameter("@DateFrom", DateFrom, crReportDocument)

                .AddParameter("DateTo", DateTo, crReportDocument)
                .AddParameter("@WhereCond", sParameterValue(6), crReportDocument)
                .AddParameter("@SortExpression", SortExpression, crReportDocument)
                .AddParameter("@AccountType", AccountType, crReportDocument)

                .AddParameter("ComputerName", Session("ComputerName"), crReportDocument)
                .AddParameter("@sysProject_Code", IIf(ProjectCode = "All", 0, ProjectCode), crReportDocument)
            End With
        Case Else
    End Select
    crReportDocument.DataSourceConnections.Item(0).SetConnection("KT", "JVC", True)
    rName = "CashBankBookReport"
    If cboReportFormat.SelectedValue.Equals("pdf") Then
        crReportDocument.ExportToDisk(ExportFormatType.PortableDocFormat, System.Web.HttpContext.Current.Server.MapPath("../Reports/" + rName + ".pdf"))
        'Call OpenReport(System.Web.HttpContext.Current.Server.MapPath("../Reports/" + rName + ".pdf"))
    Else
        crReportDocument.ExportToDisk(ExportFormatType.Excel, System.Web.HttpContext.Current.Server.MapPath("../Reports/" + rName + ".xls"))
        'Call OpenReport(System.Web.HttpContext.Current.Server.MapPath("../Reports/" + rName + ".xls"))
    End If
    OpenReport("../Reports/" + rName + "." + cboReportFormat.SelectedValue)
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...