Tool.TDSAlle.Tool.DefaultView.RowStateFilter = DataViewRowState.Deleted Or _
                                        DataViewRowState.Added Or _
                                        DataViewRowState.ModifiedCurrent
        DGV.DataSource = Tool.TDSAlle.Tool

        Dim id As String
        Dim State As String = Nothing
 
        For i As Integer = 0 To DGV.Rows.Count - 1
            id = DGV.Rows(i).Cells(0).Value.ToString()
            For i0 As Integer = 0 To Tool.TDSAlle.Tool.Rows.Count - 1
                If Tool.TDSAlle.Tool.Rows(i0).Item("ID") = id Then
                    State = Tool.TDSAlle.Tool.Rows(i0).RowState
                End If
            Next
            MsgBox(State)
        Next