'Reaktion auf Filtereingabe
    Private Sub GridFilter_CellValueChanged(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      GridFilter.CellValueChanged
        Dim Filter As String = ""
        For i As Integer = 0 To Datensatz.Columns.Count - 1
            If GridFilter.Item(i, 0).Value <> "" Then
                Filter &= "IIF(" & GridFilter.Columns(i).Name & " like '*/*'," & _
                  "0, Convert(" & GridFilter.Columns(i).Name & "," & _
                  "'System.Int32'))" & GridFilter.Item(i, 0).Value & " AND "
            End If
        Next i
        If Filter <> "" Then Filter = Microsoft.VisualBasic.Left(Filter, _
          Filter.Length - 5)
        Datensatz.DefaultView.RowFilter = Filter
    End Sub