Skip to Content
0
Former Member
Nov 30, 2011 at 06:45 PM

Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

791 Views

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"))