vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: DataGridView/BindingSource filtern 
Autor: stefanbla80
Datum: 08.07.20 08:23
Hallo zusammen,
das Thema ist mit den ganze, Klammern, Hochkommas, Leerzeichn wirklich etwas "tricky", aber habe das nun für meine Fälle so hinbekommen.

Anbei mein Code - vielen Danl nochmals für die Hilfestellungen. 

Private Sub Filter()
        Cursor.Current = Cursors.WaitCursor
        Dim DummyString0 As String = ""
        Dim DummyString1 As String = ""
        Dim DummyString2 As String = ""
        Dim DummyString3 As String = ""
        Dim DummyString4 As String = ""
        Dim FilterString As String = ""
 
        DummyString1 = "[Column_29] Like '" & Trim(Me.ComboBox_Filter.Text) & _
          "'"
        DummyString2 = "[Column_40] Like '" & Trim(Me.ComboBox_Filter2.Text) & _
        "' OR [Column_60] Like '" & Trim(Me.ComboBox_Filter2.Text) & "'"
        DummyString3 = "[Column_37] Like '" & Trim(Me.ComboBox_Filter3.Text) & _
        "'"
        DummyString4 = "[Column_40] Not Like '" & "Project finished" & "' AND" & _
        "[Column_60] Not Like '" & "Project finished" & "'" 'wegen Not Like 
        ' wird das OR zum AND
 
        If Me.ComboBox_Filter3.Text = "" Then
            If Me.ComboBox_Filter.Text = "" Then
                If Me.ComboBox_Filter2.Text <> "" Then
                    If Me.ComboBox_Filter2.Text = "Project finished" Then _
                      FilterString = DummyString2
                    If Me.ComboBox_Filter2.Text <> "Project finished" Then _
                    FilterString = "( ( " & DummyString4 & " )" & " AND " & "(" & _
                    "" & DummyString2 & " ) )"
                Else
                    FilterString = ""
                End If
            ElseIf Me.ComboBox_Filter.Text <> "" Then
                If Me.ComboBox_Filter2.Text <> "" Then
                    If Me.ComboBox_Filter2.Text = "Project finished" Then _
                      FilterString = "( " & DummyString2 & " )" & " AND " & _
                      DummyString1
                    If Me.ComboBox_Filter2.Text <> "Project finished" Then _
                    FilterString = "( ( " & DummyString4 & " )" & " AND " & "(" & _
                    "" & DummyString2 & " ) )" & " AND " & DummyString1
                Else
                    FilterString = "( " & DummyString4 & " )" & " AND " & _
                      DummyString1
                End If
            End If
        ElseIf Me.ComboBox_Filter3.Text <> "" Then
            If Me.ComboBox_Filter.Text = "" Then
                If Me.ComboBox_Filter2.Text <> "" Then
                    If Me.ComboBox_Filter2.Text = "Project finished" Then _
                      FilterString = "( " & DummyString2 & " )" & " AND " & _
                      DummyString3
                    If Me.ComboBox_Filter2.Text <> "Project finished" Then _
                    FilterString = "( ( " & DummyString4 & " )" & " AND " & "(" & _
                    "" & DummyString2 & " ) )" & " AND " & DummyString3
                Else
                    FilterString = DummyString3
                End If
            ElseIf Me.ComboBox_Filter.Text <> "" Then
                If Me.ComboBox_Filter2.Text <> "" Then
                    If Me.ComboBox_Filter2.Text = "Project finished" Then _
                      FilterString = "( " & DummyString2 & " )" & " AND " & _
                      DummyString1 & " AND " & DummyString3
                    If Me.ComboBox_Filter2.Text <> "Project finished" Then _
                    FilterString = "( ( " & DummyString4 & " )" & " AND " & "(" & _
                    "" & DummyString2 & " ) )" & " AND " & DummyString1 & " AND" & _
                    "" & DummyString3
                Else
                    FilterString = "( " & DummyString4 & " )" & " AND " & _
                      DummyString1 & " AND " & DummyString3
                End If
            End If
        End If
 
        System.Threading.Thread.Sleep(250)
 
        Me.PlanningGuideDataBindingSource.Filter = FilterString
        Me.PlanningGuideDataDataGridView.Refresh()
        Cursor.Current = Cursors.Default
    End Sub
Grüße
Stefan
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DataGridView/BindingSource filtern758stefanbla8024.06.20 10:05
Re: DataGridView/BindingSource filtern475Manfred X24.06.20 12:05
Re: DataGridView/BindingSource filtern492stefanbla8026.06.20 07:39
Re: DataGridView/BindingSource filtern467Manfred X26.06.20 13:32
Re: DataGridView/BindingSource filtern460stefanbla8026.06.20 13:53
Re: DataGridView/BindingSource filtern471Manfred X26.06.20 14:23
Re: DataGridView/BindingSource filtern467stefanbla8026.06.20 14:31
Re: DataGridView/BindingSource filtern460Manfred X26.06.20 14:40
Re: DataGridView/BindingSource filtern470stefanbla8008.07.20 08:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel