Public Class Form1
    Dim index As Integer
    Private Sub ÜbersichtBindingNavigatorSaveItem_Click(sender As Object, e As _
      EventArgs) Handles ÜbersichtBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ÜbersichtBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SportwettenDataSet)
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "SportwettenDataSet.Übersicht". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.ÜbersichtTableAdapter.Fill(Me.SportwettenDataSet.Übersicht)
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim newdatarow As DataGridViewRow
        newdatarow = ÜbersichtDataGridView.Rows(index)
        newdatarow.Cells(1).Value = TextBox1.Text
        newdatarow.Cells(2).Value = TextBox2.Text
        newdatarow.Cells(3).Value = TextBox3.Text
        newdatarow.Cells(4).Value = TextBox4.Text
    End Sub
 
    Private Sub ÜbersichtDataGridView_CellClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles ÜbersichtDataGridView.CellClick
        index = e.RowIndex
        Dim selectedrow As DataGridViewRow
        selectedrow = ÜbersichtDataGridView.Rows(index)
        TextBox1.Text = selectedrow.Cells(1).Value.ToString()
        TextBox2.Text = selectedrow.Cells(2).Value.ToString()
        TextBox3.Text = selectedrow.Cells(3).Value.ToString()
        TextBox4.Text = selectedrow.Cells(4).Value.ToString()
    End Sub
End Class