Public Class Bearbeiten
 
    Private Sub Bearbeiten_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DBDataSet.Tabelle1". 
        ' Sie können sie bei Bedarf verschieben oder entfernen.
        Me.Tabelle1TableAdapter.Fill(Me.DBDataSet.Tabelle1)
 
        Me.Tabelle1BindingSource.MoveFirst()
5:      'suchen
 
 
        If TextBox1.Text = Hauptforum.TextBox2.Text Then
            GoTo 10
        Else
            Me.Tabelle1BindingSource.MoveNext()
            GoTo 5
 
        End If
 
10:     'end sub
 
 
 
 
    End Sub
 
    Private Sub B_OK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles B_OK.Click
 
 
 
        Try
            Me.Validate()
            Me.Tabelle1BindingSource.EndEdit()
            Me.Tabelle1TableAdapter.Update(Me.DBDataSet.Tabelle1)
 
 
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error!", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
        Hauptforum.Enabled = True
        Try
            Hauptforum.Tabelle1TableAdapter.Fill(Hauptforum.DBDataSet.Tabelle1)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
 
        Me.Close()
    End Sub
 
    Private Sub B_Abrechen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles B_Abrechen.Click
        Me.Validate()
        Me.Tabelle1BindingSource.EndEdit()
        Hauptforum.Enabled = True
        Try
            Hauptforum.Tabelle1TableAdapter.Fill(Hauptforum.DBDataSet.Tabelle1)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
        Me.Close()
    End Sub
End Class