[RESOLVED] CR.NET problem

[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