Hallo,
ich habe ein Problem mit Visual Basic 2013. Ich möchte durch Klicken auf den Button "Speichern", meine Angaben speichern. Jedoch funktioniert das nicht. VB springt zurück auf das Startmenü, anstatt Im Fenster Kundenverwaltung, die gespeicherten Seiten anzuzeigen. Eine Idee woran es liegen könnte?
Private Sub btnSpeichernNK_Click(sender As Object, e As EventArgs) Handles btnSpeichernNK.Click
Dim zeile As Long
If txtKundennrNK.Text = "" Then
'Wenn Kundentabelle nicht angebunden ist, dies nachholen
objNeuerKunde = objDatabase.getTable("tblKunde")
'Neue Zeile am Ende anfügen und die Zeilenvariable auf das Ende setzen
objNeuerKunde.Tables(0).Rows.Add()
zeile = objNeuerKunde.Tables(0).Rows.Count - 1
Else
'Aktualisieren eines vorhandenen Datensatzes, der im DataSet in Zeile 0 steht
zeile = 0
End If
'Übernehmen der Daten
objNeuerKunde.Tables(0).Rows(zeile).Item(1) = txtFirmaNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(2) = txtStrHausnrNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(3) = txtPLZNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(4) = txtOrtNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(5) = txtAussenstaendeNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(6) = cmbKAMNK.Text
'Speichern des Datensatzes
objDatabase.saveDataSet(objNeuerKunde)
'Schließen und leeren des Formulars
Me.Dispose()
End Sub
ich habe ein Problem mit Visual Basic 2013. Ich möchte durch Klicken auf den Button "Speichern", meine Angaben speichern. Jedoch funktioniert das nicht. VB springt zurück auf das Startmenü, anstatt Im Fenster Kundenverwaltung, die gespeicherten Seiten anzuzeigen. Eine Idee woran es liegen könnte?
Private Sub btnSpeichernNK_Click(sender As Object, e As EventArgs) Handles btnSpeichernNK.Click
Dim zeile As Long
If txtKundennrNK.Text = "" Then
'Wenn Kundentabelle nicht angebunden ist, dies nachholen
objNeuerKunde = objDatabase.getTable("tblKunde")
'Neue Zeile am Ende anfügen und die Zeilenvariable auf das Ende setzen
objNeuerKunde.Tables(0).Rows.Add()
zeile = objNeuerKunde.Tables(0).Rows.Count - 1
Else
'Aktualisieren eines vorhandenen Datensatzes, der im DataSet in Zeile 0 steht
zeile = 0
End If
'Übernehmen der Daten
objNeuerKunde.Tables(0).Rows(zeile).Item(1) = txtFirmaNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(2) = txtStrHausnrNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(3) = txtPLZNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(4) = txtOrtNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(5) = txtAussenstaendeNK.Text
objNeuerKunde.Tables(0).Rows(zeile).Item(6) = cmbKAMNK.Text
'Speichern des Datensatzes
objDatabase.saveDataSet(objNeuerKunde)
'Schließen und leeren des Formulars
Me.Dispose()
End Sub