#Region "Persistieren"
 
   Private Sub BTN_neu_Click(sender As Object, e As EventArgs) Handles _
     BTN_neu.Click
        DatenBindingSource.AddNew()
    End Sub
 
    Private Sub BTN_bearbeiten_Click(sender As Object, e As EventArgs) Handles _
      BTN_bearbeiten.Click
        DatenBindingSource.EndEdit()
        DatenTableAdapter.Update(BDSDataSet.Daten)
        summe()
    End Sub
 
    Private Sub BTN_entfernen_Click(sender As Object, e As EventArgs) Handles _
      BTN_entfernen.Click
        DatenBindingSource.RemoveCurrent()
        DatenTableAdapter.Update(BDSDataSet.Daten)
        summe()
    End Sub
 
    Private Sub BTN_speichern_Click(sender As Object, e As EventArgs) Handles _
      BTN_speichern.Click
 
        If TBX_rechnungsnummer.Text > "" Then
            TBX_versandkosten_verkauf.Text = tbx_versandkosten.Text
        End If
 
        Me.Validate()
        Me.DatenBindingSource.EndEdit()
        Me.DatenTableAdapter.Update(Me.BDSDataSet.Daten)
 
        summe()
    End Sub
 
    Private Sub BTN_abbrechen_Click(sender As Object, e As EventArgs) Handles _
      BTN_abbrechen.Click
        DatenBindingSource.CancelEdit()
        summe()
    End Sub
 
#End Region