Private Sub TabelleInDBBindingNavigatorSaveItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      TabelleInDBBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TestDataSet)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "TestDataSet.TabelleInDB". Sie können sie bei Bedarf verschieben oder 
        ' entfernen.
        Me.TabelleInDBTableAdapter.Fill(Me.TestDataSet.TabelleInDB)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        'Nur noch geänderte, gelöschte und neue Datensätze Anzeigen
        Me.TestDataSet.TabelleInDB.DefaultView.RowStateFilter = _
                                    DataViewRowState.Deleted Or _
                                    DataViewRowState.Added Or _
                                    DataViewRowState.ModifiedCurrent
 
        'Binding Source Aktualisieren, um die Daten Anzuzeigen
        BindingSource.DataSource = TestDataSet.TabelleInDB
 
    End Sub
 
    'Neue DataView erzeugen
    Private TabelleinDBView As DataView
 
    Private Sub dataGridView1_CellFormatting(ByVal sender As Object, _
    ByVal e As DataGridViewCellFormattingEventArgs) _
    Handles DataGridView.CellFormatting
 
        TabelleinDBView = TestDataSet.TabelleInDB.DefaultView
 
        If (e.RowIndex <= 0) Then
            Return ' wir sind im Header
        End If
 
        If TabelleinDBView(e.RowIndex - 1).rowState = DataRowState.Modified _
          Then  '<- Fehler hier
            DataGridView.Rows(e.RowIndex).DefaultCellStyle.BackColor = _
            Color.Blue
        End If
    End Sub