Else wirft ein Fehler aus unbekannten Grund?

  • VBScript

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von a.b_om.

    Else wirft ein Fehler aus unbekannten Grund?

    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:

    Quellcode

    1. Detail.CalculateSize()
    3. HeightList(0) = Field1.RenderHeight
    4. HeightList(1) = Field2.RenderHeight
    5. HeightList(2) = Field3.RenderHeight
    6. HeightList(3) = Field4.RenderHeight
    7. HeightList(4) = Field5.RenderHeight
    8. HeightList(5) = Field6.RenderHeight
    9. HeightList(6) = Field7.RenderHeight
    10. HeightList(7) = Field8.RenderHeight
    11. HeightList(8) = Field9.RenderHeight
    12. HeightList(9) = Field10.RenderHeight
    13. HeightList(10) = Field11.RenderHeight
    14. HeightList(11) = Field12.RenderHeight
    16. HeightList.Sort
    17. betha = HeightList(0) - previousHeightCtlOben
    19. If (Field13.Text = Nothing OR Field13.Text = "" Or Field13.Text = " ") Then
    20. Field13.Visible = False
    21. Field3.Height = Field3.Height + (betha)
    22. Field4.Height = Field4.Height + (betha)
    23. Field5.Height = Field5.Height + (betha)
    24. Field6.Height = Field6.Height + (betha)
    25. Field7.Height = Field7.Height + (betha)
    26. Field8.Height = Field8.Height + (betha)
    27. Field9.Height = Field9.Height + (betha)
    28. Field10.Height = Field10.Height + (betha)
    29. Field11.Height = Field11.Height + (betha)
    30. Field12.Height = Field12.Height + (betha)
    31. If previousBemerkung = True Then
    32. Field1.Height = Field1.Height - previousHeightCtlUnten + (betha)
    33. Field2.Height = Field2.Height - previousHeightCtlUnten + (betha)
    34. Detail.Height = Detail.Height - previousHeightCtlUnten + (betha)
    35. previousBemerkung = False
    36. Else
    37. Field1.Height = Field1.Height + (betha)
    38. Field2.Height = Field2.Height + (betha)
    39. Detail.Height = Detail.Height + (betha)
    40. previousBemerkung = False
    41. EndIf
    42. Else 'Hier ist der Fehler
    43. Field13.Visible = True
    44. Field3.Height = Field3.Height + (betha)
    45. Field4.Height = Field4.Height + (betha)
    46. Field5.Height = Field5.Height + (betha)
    47. Field6.Height = Field6.Height + (betha)
    48. Field7.Height = Field7.Height + (betha)
    49. Field8.Height = Field8.Height + (betha)
    50. Field9.Height = Field9.Height + (betha)
    51. Field10.Height = Field10.Height + (betha)
    52. Field11.Height = Field11.Height + (betha)
    53. Field12.Height = Field12.Height + (betha)
    54. If previousBemerkung = True Then
    55. Field1.Height = Field1.Height + BemerkungCtl.RenderHeight + (betha)
    56. Field2.Height = Field2.Height + BemerkungCtl.RenderHeight + (betha)
    57. Detail.Height = Detail.Height + BemerkungCtl.RenderHeight + (betha)
    58. previousBemerkung = True
    59. Else
    60. Field1.Height = Field1.Height + (betha)
    61. Field2.Height = Field2.Height + (betha)
    62. Detail.Height = Detail.Height + (betha)
    63. previousBemerkung = True
    64. EndIf
    65. EndIf

    @VB1963 Vielleicht war da einfach ein falsches Zeilen-Ende-Zeichen oder ein anderes Steuerzeichen im Quelltext, die sieht man ja nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende