Я перенесу свой проект с 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