Public Class frmFilter
 
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With {.Parent = Me}
 
 
    Private Sub frmFilter_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'Testspalten und Testdaten
 
        dt.Columns.Add("SP_0")
        dt.Columns.Add("SP_1", GetType(Integer))
        dt.Columns.Add("Kato")
 
        dt.Rows.Add({"xxx", 1000, "a"})
        dt.Rows.Add({"test", 1000, "b"})
        dt.Rows.Add({"test", 2210, "c"})
        dt.Rows.Add({"xxx", 2210, "d"})
        dt.Rows.Add({"test", 2280, "e"})
        dt.Rows.Add({"test", 2480, "f"})
 
        bs.DataSource = dt
 
        'Datensatz-Filter setzen
        bs.Filter = "SP_0 = 'test' AND SP_1 >= 2200 AND SP_1 <= 2300"
 
        'Gefilterte Datensätze bearbeiten
        For i As Integer = 0 To bs.Count - 1
            Dim r As DataRow = DirectCast(bs(i), DataRowView).Row
            r("Kato") = "selected"
        Next i
 
        'Filter entfernen
        bs.Filter = ""
 
        dgv.DataSource = bs
    End Sub
 
End Class