[RESOLVED] CR.NET problem

[Asgorath]

In the code below i have i am cycling all objects of the report. All textbox work ok i can change the text at runtine no problem my problem is when i try access a field object it never enter the code section to hide it...

Dim crreportobject As CrystalDecisions.CrystalReports.Engine.ReportObject
                    For Each crreportobject In crReportDocument.ReportDefinition.ReportObjects
                        If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.TextObject Then
                            Dim crtextobject As CrystalDecisions.CrystalReports.Engine.TextObject
                            If Trim(crreportobject.Name) = "Text8" Then
                                crtextobject = DirectCast(crreportobject, CrystalDecisions.CrystalReports.Engine.TextObject)
                                crtextobject.Text = "Lista Condensada de Componentes para Electrificação da Encomenda"
                            End If
                            If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.FieldObject Then '' << never true??
                                Dim field As CrystalDecisions.CrystalReports.Engine.FieldObject
                                If Trim(field.Name) = "Field16" Then
                                    field = DirectCast(field, CrystalDecisions.CrystalReports.Engine.FieldObject)
                                    field.ObjectFormat.EnableSuppress = False
 
                                End If
                            End If
                        End If
                    Next

Regards
Jorge

[Asgorath]

Solved the part of the problem the 2nd typeof was misplaced now i get a null reference error when i try to access the field object called field16 ,and it does exits on the report.

Dim crreportobject As CrystalDecisions.CrystalReports.Engine.ReportObject
                    For Each crreportobject In crReportDocument.ReportDefinition.ReportObjects
                        If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.TextObject Then
                            Dim crtextobject As CrystalDecisions.CrystalReports.Engine.TextObject
                            If Trim(crreportobject.Name) = "Text8" Then
                                crtextobject = DirectCast(crreportobject, CrystalDecisions.CrystalReports.Engine.TextObject)
                                crtextobject.Text = "Lista Condensada de Componentes para Electrificação da Encomenda"
                            End If
                        End If
                        If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.FieldObject Then
                            Dim field As CrystalDecisions.CrystalReports.Engine.FieldObject
                            If Trim(field.Name) = "Field16" Then '' >> null exception here
                                field = DirectCast(field, CrystalDecisions.CrystalReports.Engine.FieldObject)
                                field.ObjectFormat.EnableSuppress = False
 
                            End If
                        End If
 
                    Next

Regards
Jorge

[Asgorath]

Final version now working...

Dim crreportobject As CrystalDecisions.CrystalReports.Engine.ReportObject
                    For Each crreportobject In crReportDocument.ReportDefinition.ReportObjects
                        If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.TextObject Then
                            Dim crtextobject As CrystalDecisions.CrystalReports.Engine.TextObject = DirectCast(crreportobject, CrystalDecisions.CrystalReports.Engine.TextObject)
                            If crreportobject.Name.TrimEnd = "Text8" Then
                                crtextobject.Text = "Lista Condensada de Componentes para Electrificação da Encomenda"
                            End If
                        End If
                        If TypeOf (crreportobject) Is CrystalDecisions.CrystalReports.Engine.FieldObject Then
                            Dim field As CrystalDecisions.CrystalReports.Engine.FieldObject = DirectCast(crreportobject, CrystalDecisions.CrystalReports.Engine.FieldObject)
                            If field.Name.TrimEnd = "Field16" Then
                                field.ObjectFormat.EnableSuppress = False
                            End If
                        End If
                    Next

Regards
Jorge