Dim dv As DataView = New DataView(query.CopyToDataTable)
 
dv.RowFilter = "Isnull(Budgetjahr, '') LIKE '*" & tbxFilterBudgetjahr.Text & _
  "*'" _
             & " AND Gebäudenummer LIKE '%" & tbxFilterGebäude.Text & "'" _
             & " AND Projektnummer LIKE '%" & tbxFilterProjektNummer.Text & _
             "%'" _
             & " AND Projektbezeichnung LIKE '%" & tbxFilterBezeichnung.Text & _
             "%'" _
             & " AND Convert([Projektkostenstelle], 'System.String') LIKE '" & _
             tbxFilterKostenstelle.Text & "%'" _
             & " AND Status " & Vergleichstext( _
             cbxFilterOperatorProjektstatus.Text, cbxFilterStatus.Text) _
             & " AND Projektkategorie " & Vergleichstext( _
             cbxFilterOperatorProjektkategorie.Text, _
             cbxFilterProjektkategorie.Text) _
             & " AND Projekttyp " & Vergleichstext( _
             cbxFilterOperatorProjekttyp.Text, cbxFilterProjekttyp.Text) _
             & " AND Projektleiter " & Vergleichstext( _
             cbxFilterOperatorProjektleiter.Text, cbxFilterProjektleiter.Text)
 
 
 
dgvProjektübersicht2.DataSource = dv

    Public Function Vergleichstext(ByVal Vergleichsoperator As String, ByVal _
      Suchtext As String)
        Dim strText As String
        Select Case Vergleichsoperator
            Case "Ist gleich"
                strText = " = '" & Suchtext & "'"
            Case "Enthält"
                strText = " LIKE '%" & Suchtext & "%'"
            Case "Enthält nicht"
                strText = " <> '" & Suchtext & "'"
            Case "Beginnt mit"
                strText = " LIKE '%" & Suchtext & "'"
            Case "Endet mit"
                strText = " LIKE '" & Suchtext & "%'"
            Case Else
                strText = " LIKE '%'"
        End Select
        Return strText
 
    End Function