@ErfinderDesRades
Ich habe wirklich besseres zu tun als Dich oder andere hier zu veräppeln!
Wenn du mal richtig gelesen hättest wäre dir der Satz aufgefallen, das ich " umgebaut " hatte, was dazu führte das der Code zwar lief aber eben nicht so wie ich erhoffte, nämlich die Fehler abzufangen.
Ja ich vergaß den neuen Codeblock zu posten aber dir als "alter Hase" hätte doch auffallen müssen, das da wohl Grundsätzlich etwas nicht stimmt. Scheinbar dürfen Anfänger und das bin ich trotz meines Bemühens zu lernen wohl solch simple Fragen nicht mehr stellen?
Ist das nur noch ein Forum für Superprogrammierer? Wobei ich mich nicht mal als Programmierer bezeichnen würde.
-----------------------------------------------------------------------------------
@All
Wenn jemand nun einen Vorschlag hat wie ich das immer noch bestehende Problem lösen kann; ich wäre Dankbar.
Geänderter Code. Was könnte ich verbessern / ändern??
Spoiler anzeigen
Ich habe wirklich besseres zu tun als Dich oder andere hier zu veräppeln!
Wenn du mal richtig gelesen hättest wäre dir der Satz aufgefallen, das ich " umgebaut " hatte, was dazu führte das der Code zwar lief aber eben nicht so wie ich erhoffte, nämlich die Fehler abzufangen.
Ja ich vergaß den neuen Codeblock zu posten aber dir als "alter Hase" hätte doch auffallen müssen, das da wohl Grundsätzlich etwas nicht stimmt. Scheinbar dürfen Anfänger und das bin ich trotz meines Bemühens zu lernen wohl solch simple Fragen nicht mehr stellen?
Ist das nur noch ein Forum für Superprogrammierer? Wobei ich mich nicht mal als Programmierer bezeichnen würde.
-----------------------------------------------------------------------------------
@All
Wenn jemand nun einen Vorschlag hat wie ich das immer noch bestehende Problem lösen kann; ich wäre Dankbar.
Geänderter Code. Was könnte ich verbessern / ändern??
VB.NET-Quellcode
-
- Private Sub inputcheck()
- Dim MwSt1 As Integer
- Dim MwSt2 As Integer
- Dim result1 As Boolean = String.IsNullOrWhiteSpace(SummeTextBox.Text)
- Dim result2 As Boolean = String.IsNullOrWhiteSpace(BeschreibungTextBox.Text)
- If MwSt1RadioButton.Checked = True Then
- MwSt1 = 1 : MwSt2 = 0
- ElseIf MwSt2RadioButton.Checked = True Then
- MwSt2 = 1 : MwSt1 = 0
- Else
- EAklasse.efehler("mwst")
- End If
- If result1 = True Or result2 = True Then
- EAklasse.efehler("default")
- Else
- ' Die Messageboxen dienen mir nur um zu überprüfen ob die richtigen Werte
- ' ankommen die in die Datenbank geschrieben werden sollen!
- '-----------------------------------
- MessageBox.Show(MwSt1 & "" & MwSt2)
- MessageBox.Show(KategorieComboBox.SelectedValue.ToString) '& "" & DatumDateTimePicker.ToString)
- MessageBox.Show(SummeTextBox.Text & "" & BeschreibungTextBox.Text)
- '-----------------------------------
- 'Me.Validate()
- 'Me.EATableBindingSource.EndEdit()
- 'Me.TableAdapterManager.UpdateAll(Me.EaDBDataSet)
- 'btn_save.Enabled = False
- EAklasse.efehler("ok")
- End If
- End Sub
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()