Zugriff auf CrystalReport TextObjekte zur Laufzeit

  • der CrystalReport ist in ein CrystalReportViewer-Objekt auf dem Formular eingebettet
  • der Zugriff auf die Objekte im Report erfolgt über TypeCasts
' Reportobjekt erzeugen
Private rpt As MyReport = New MyReport()

' beim Erzeugen der Form dem CrystalReportViewer den Report zuweisen
Private Sub MyForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    CrystalReportViewer1.ReportSource = rpt
End Sub

' beim Buttonklick den Text eines Labels im Report ändern
Private Sub btnChangeText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangeText.Click
    Dim crTextObject As CrystalDecisions.CrystalReports.Engine.TextObject

    ' Section3 ... Sektion, in der das TextObjekt beim Erstellen abgelegt wurde
    ' Text1 ... Name, der im beim Erstellen des Reports in dessen Eigenschaftsfenster für das TextObjekt vergeben wurde
    crTextObject = CType(rpt.Section3.ReportObjects.Item("Text1"), CrystalDecisions.CrystalReports.Engine.TextObject)

    ' Text zuweisen
    crTextObject.Text = "neuer Text"
End Sub

Kommentare sind geschlossen.