I am getting the following error when trying to format a Crystal Report in code in my ASP 3.5 project. Can't seem to find a solution to this...
Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
Private Sub ConfigureCrystalReports()
Dim ReportType As String = vbNull
Dim ReportTypeCriteria As String = "CrystalDecisions.CrystalReports.Engine.FieldObject"
Dim crReport As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
'crReport.Load(MapPath("JobReport.rpt"))
crReport.Equals(Server.MapPath("JobReport.rpt"))
crReport.FileName = Server.MapPath("JobReport.rpt")
CrystalReportViewer1.ReportSource = Session("CrystalReportViewer.ReportSource")
CrystalReportViewer1.DataBind()
Dim i As Int32
Dim fo As CrystalDecisions.CrystalReports.Engine.FieldObject = Nothing
For i = 0 To crReport.ReportDefinition.ReportObjects.Count
ReportType = crReport.ReportDefinition.ReportObjects(i).GetType.ToString <---- Error occurs here !!!
If ReportType.Equals(ReportTypeCriteria) Then
fo = DirectCast(crReport.ReportDefinition.ReportObjects(i), CrystalDecisions.CrystalReports.Engine.FieldObject)
With fo.ObjectFormat
.EnableCanGrow = True
.HorizontalAlignment() = CrystalDecisions.Shared.Alignment.LeftAlign
End With
End If
Next
End Sub
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
ConfigureCrystalReports()
End Sub
The error occurs regardless if I use
crReport.Load(MapPath("JobReport.rpt"))
OR crReport.Equals(Server.MapPath("JobReport.rpt"))