Guten Morgen,
Ich Bekomme folgende Fehlermeldung wenn ich einen Weiteren Eintrag in mein DataSet hinzufügen Möchte.
Spoiler anzeigen
Der Dazugehörige Source wäre der:
Spoiler anzeigen
Wo könnte der Fehler Liegen ? bin so ein Wenig Ratlos
Ich würde mich auch Freuen über einen Ratschlag, wie ich den Code ein wenig Stimmiger gestalten könnte. sind ja schon ne menge If abfragen ...
Ich Danke schon einmal im Vorfeld für Anregungen und Hilfestellungen
Grüße
Sonaca
Ich Bekomme folgende Fehlermeldung wenn ich einen Weiteren Eintrag in mein DataSet hinzufügen Möchte.
Ein Ausnahmefehler des Typs "System.Data.ConstraintException" ist in System.Data.dll aufgetreten.
Zusätzliche Informationen: Die Spalte 'Revier 1' hat die Einschränkung, dass sie eindeutig sein muss. Der Wert '1' ist bereits vorhanden.
Zusätzliche Informationen: Die Spalte 'Revier 1' hat die Einschränkung, dass sie eindeutig sein muss. Der Wert '1' ist bereits vorhanden.
Der Dazugehörige Source wäre der:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim newCustomersRow As DataSet2.MitarbeiterRow
- newCustomersRow = DataSet2.Mitarbeiter.NewMitarbeiterRow()
- #Region "Text Boxen"
- 'Vorname
- If VornameTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie einen Vornamen ein.")
- Else
- newCustomersRow.Vorname = VornameTextBox1.Text
- End If
- 'Nachname
- If NachnameTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie einen Nachnamen ein.")
- Else
- newCustomersRow.Nachname = NachnameTextBox1.Text
- End If
- 'Personalnummer
- If PersonalnummerTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie eine Personalnummer an.")
- Else
- newCustomersRow.Personalnummer = PersonalnummerTextBox1.Text
- End If
- 'Geburtstag
- If GeburtstagTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie Geburtstag an.")
- Else
- newCustomersRow.Geburtstag = GeburtstagTextBox1.Text
- End If
- 'Telefon Nummer
- If TelefonnummerTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie eine Telefonnummer ein.")
- Else
- newCustomersRow.Telefonnummer = TelefonnummerTextBox1.Text
- End If
- 'Straße
- If StraßeTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie die Straße an.")
- Else
- newCustomersRow.Straße = StraßeTextBox1.Text
- End If
- 'Postleitzahl
- If PostleitzahlTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie die Postleitzahl ein.")
- Else
- newCustomersRow.Postleitzahl = PostleitzahlTextBox1.Text
- End If
- 'Wohnort
- If WohnortTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie den Wohnort ein.")
- Else
- newCustomersRow.Wohnort = WohnortTextBox1.Text
- End If
- 'Maximale Arbeitstage im Monat
- If Max_Arbeitstage_im_MonatTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie die Maximalen Arbeitstage im Monat ein.")
- Else
- newCustomersRow.Max_Arbeitstage_im_Monat = Max_Arbeitstage_im_MonatTextBox1.Text
- End If
- #End Region
- #Region "Checkboxen"
- 'revier 1
- If CheckBox1.Checked = False Then
- newCustomersRow.Revier_1 = "0"
- Else
- newCustomersRow.Revier_1 = "1"
- End If
- 'Revier 2
- If CheckBox2.Checked = False Then
- newCustomersRow.Revier_2 = "0"
- Else
- newCustomersRow.Revier_2 = "1"
- End If
- 'Revier 3
- If CheckBox3.Checked = False Then
- newCustomersRow.Revier_3 = "0"
- Else
- newCustomersRow.Revier_3 = "1"
- End If
- 'Revier 4
- If CheckBox4.Checked = False Then
- newCustomersRow.Revier_4 = "0"
- Else
- newCustomersRow.Revier_4 = "1"
- End If
- 'Alarm Verfolger
- If CheckBox5.Checked = False Then
- newCustomersRow.Alarm_Verfolger = "0"
- Else
- newCustomersRow.Alarm_Verfolger = "1"
- End If
- 'Tag Revier Frühschicht
- If CheckBox6.Checked = False Then
- newCustomersRow.Tag_Revier_Früh = "0"
- Else
- newCustomersRow.Tag_Revier_Früh = "1"
- End If
- 'Tag Revier Spätschicht
- If CheckBox7.Checked = False Then
- newCustomersRow.Tag_Revier_Spät = "0"
- Else
- newCustomersRow.Tag_Revier_Spät = "1"
- End If
- 'Alarmzentrale Hauptplatz
- If CheckBox8.Checked = False Then
- newCustomersRow.AZ_Hauptplatz = "0"
- Else
- newCustomersRow.AZ_Hauptplatz = "1"
- End If
- 'Alarmzentrale Zweitplatz
- If CheckBox9.Checked = False Then
- newCustomersRow.AZ_Zweitplatz = "0"
- Else
- newCustomersRow.AZ_Zweitplatz = "1"
- End If
- 'Alarmzentrale Drittplatz
- If CheckBox10.Checked = False Then
- newCustomersRow.AZ_Drittplatz = "0"
- Else
- newCustomersRow.AZ_Drittplatz = "1"
- End If
- #End Region
- DataSet2.Mitarbeiter.Rows.Add(newCustomersRow)
- End Sub
Wo könnte der Fehler Liegen ? bin so ein Wenig Ratlos
Ich würde mich auch Freuen über einen Ratschlag, wie ich den Code ein wenig Stimmiger gestalten könnte. sind ja schon ne menge If abfragen ...
Ich Danke schon einmal im Vorfeld für Anregungen und Hilfestellungen
Grüße
Sonaca