Private dtData As DataTable
 
    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim bsArtikel As BindingSource
        dtData = sqlDataTable("SELECT AR_Nummer, AR_Bezeichnung FROM Artikel")
        dtData.Columns.Add("AR_Gruppe", GetType(String))
        bsArtikel = New BindingSource
        bsArtikel.DataSource = dtData.DefaultView.ToTable
        bsArtikel.Filter = getFilter()
        DataGridView1.DataSource = bsArtikel
    End Sub
 
'Nach dem Load ist das DataGridView1 komplett befüllt, da der Filter auf 
' "AR_Nummer is null" gesetzt ist. Soweit also noch richtig.
 
    Private Sub DataGridView1_MouseDoubleClick(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.MouseEventArgs) Handles _
      DataGridView1.MouseDoubleClick
        Dim info As DataGridView.HitTestInfo
        Dim bs As BindingSource
        Dim drvRow As DataRowView
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If TabControl1.SelectedTab Is Nothing Then
                MessageBox.Show("Bitte legen zu zunächst einen Tab an!", "Tab" & _
                  "anlegen", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If
            info = DataGridView1.HitTest(e.X, e.Y)
            If info.RowIndex >= 0 Then
                bs = CType(DataGridView1.DataSource, BindingSource)
                DataGridView1.CurrentCell = DataGridView1.Rows( _
                  info.RowIndex).Cells(0)
                drvRow = CType(bs.Current, DataRowView)
                drvRow.Item("AR_Gruppe") = TabControl1.SelectedTab.Text
                bs.EndEdit()
            End If
        End If
 
'Nach bs.EndEdit ist die Zeile aus dem DataGridView verschwunden, taucht aber 
' im anderen Grid nicht auf! Zur Kontrolle habe ich die DataTable dann mal 
' durchgeschliffen:
 
        For Each dtrow As DataRow In dtData.Rows
            If Not dtrow.Item("AR_Gruppe") Is DBNull.Value Then
                MsgBox(dtrow.Item("AR_Gruppe"))
            End If
        Next
'Es erscheint nie eine MessageBox, einer der Werte muss doch nun aber geändert 
' worden sein?
End Sub