Hallo Community
Ich mache gerade ein Übungsprojekt mit Component One.
Ich habe ein FlexReport erstellt und in einer vordefinierten Methode
ein Script erstellt.
Als ich eine Kontrolle durchführen wollte, sah ich einen Fehler.
In der Zeile 42 Column 4 ist ein Fehler erkannt worden.
Dort steht das zweite e vom Else.
Ich habe den Code kontrolliert, bin aber nicht weitergekommen.
Alle Variablen sind auserhalb dieser Klasse definiert und Initialisiert worden.
Code:
Ich mache gerade ein Übungsprojekt mit Component One.
Ich habe ein FlexReport erstellt und in einer vordefinierten Methode
ein Script erstellt.
Als ich eine Kontrolle durchführen wollte, sah ich einen Fehler.
In der Zeile 42 Column 4 ist ein Fehler erkannt worden.
Dort steht das zweite e vom Else.
Ich habe den Code kontrolliert, bin aber nicht weitergekommen.
Alle Variablen sind auserhalb dieser Klasse definiert und Initialisiert worden.
Code:
Quellcode
- Detail.CalculateSize()
- HeightList(0) = Field1.RenderHeight
- HeightList(1) = Field2.RenderHeight
- HeightList(2) = Field3.RenderHeight
- HeightList(3) = Field4.RenderHeight
- HeightList(4) = Field5.RenderHeight
- HeightList(5) = Field6.RenderHeight
- HeightList(6) = Field7.RenderHeight
- HeightList(7) = Field8.RenderHeight
- HeightList(8) = Field9.RenderHeight
- HeightList(9) = Field10.RenderHeight
- HeightList(10) = Field11.RenderHeight
- HeightList(11) = Field12.RenderHeight
- HeightList.Sort
- betha = HeightList(0) - previousHeightCtlOben
- If (Field13.Text = Nothing OR Field13.Text = "" Or Field13.Text = " ") Then
- Field13.Visible = False
- Field3.Height = Field3.Height + (betha)
- Field4.Height = Field4.Height + (betha)
- Field5.Height = Field5.Height + (betha)
- Field6.Height = Field6.Height + (betha)
- Field7.Height = Field7.Height + (betha)
- Field8.Height = Field8.Height + (betha)
- Field9.Height = Field9.Height + (betha)
- Field10.Height = Field10.Height + (betha)
- Field11.Height = Field11.Height + (betha)
- Field12.Height = Field12.Height + (betha)
- If previousBemerkung = True Then
- Field1.Height = Field1.Height - previousHeightCtlUnten + (betha)
- Field2.Height = Field2.Height - previousHeightCtlUnten + (betha)
- Detail.Height = Detail.Height - previousHeightCtlUnten + (betha)
- previousBemerkung = False
- Else
- Field1.Height = Field1.Height + (betha)
- Field2.Height = Field2.Height + (betha)
- Detail.Height = Detail.Height + (betha)
- previousBemerkung = False
- EndIf
- Else 'Hier ist der Fehler
- Field13.Visible = True
- Field3.Height = Field3.Height + (betha)
- Field4.Height = Field4.Height + (betha)
- Field5.Height = Field5.Height + (betha)
- Field6.Height = Field6.Height + (betha)
- Field7.Height = Field7.Height + (betha)
- Field8.Height = Field8.Height + (betha)
- Field9.Height = Field9.Height + (betha)
- Field10.Height = Field10.Height + (betha)
- Field11.Height = Field11.Height + (betha)
- Field12.Height = Field12.Height + (betha)
- If previousBemerkung = True Then
- Field1.Height = Field1.Height + BemerkungCtl.RenderHeight + (betha)
- Field2.Height = Field2.Height + BemerkungCtl.RenderHeight + (betha)
- Detail.Height = Detail.Height + BemerkungCtl.RenderHeight + (betha)
- previousBemerkung = True
- Else
- Field1.Height = Field1.Height + (betha)
- Field2.Height = Field2.Height + (betha)
- Detail.Height = Detail.Height + (betha)
- previousBemerkung = True
- EndIf
- EndIf