Filtre multiples DataGridView

Version imprimable

Ne connaissant pas le langage SQL , je cherche à filtrer un DataGridview sur plusieurs critères ( 3 colonnes distinctes)

voici ce que j'ai pu faire sur un seul critere

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    Private Sub Button3_Click(sender As Object, e As System.EventArgs) Handles Button3.Click
        Dim rech1 As String, rech2 As String, rech3 As String
        Dim filt As New DataView
        Dim filt1 As New DataView
        Dim filt2 As New DataView
 
        rech3 = TextBox1.Text
        rech2 = TextBox2.Text
        rech1 = TextBox3.Text
 
 
 
        If rech1 <> "" Or rech2 <> "" Or rech3 <> "" Then
            rech1 = "[N°]='" & rech1 & "'"
            rech2 = "[Designation]='" & rech2 & "'"
            rech3 = "[Fournisseur]='" & rech3 & "'"
 
 
 
            With filt
                .Table = DBGMAODataSet.Tables("Materiel")
                ' Trie de la vue filtrée, type string.
                .RowFilter = rech1
            End With
 
 
 
            DataGridView1.DataSource = filt
        End If
 
 
 
    End Sub

rowfilter permet-il un filtres multiples ?
Merci

22/08/2012, 16h46
Sankasssss

Bonjour,

oui, en mettant le mot-clé AND au milieu des deux critères soit :

Code:

.RowFilter = rech1 & " AND " & rech2 & " AND " & rech3
22/08/2012, 17h30
chrismonoye

Bonsoir,
ou "OR" si tu ne renseignes qu'une TextBox.

Citation:

Envoyé par chrismonoye

Bonsoir,
ou "OR" si tu ne renseignes qu'une TextBox.

http://www.developpez.net/forums/u126285-a386-i1266.png

OR veut dire juste OU et AND veut dire ET, ce n'est pas du tout la même logique.

S'il veut ne remplir qu'une seul TaxtBox il le peut avec des AND mais il doit tester si celle-ci est vide avant.

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 filt.RowFilter = "" if TextBox1.Text <> "" Then filt.RowFilter = "[N°]='" & TextBox1.Text & "'" end if if TextBox2.Text <> "" Then if filt.RowFilter <> "" Then filt.RowFilter &= " AND " filt.RowFilter &= "[Designation]='" & TextBox2.Text & "'" end if if TextBox3.Text <> "" Then if filt.RowFilter <> "" Then filt.RowFilter &= " AND " filt.RowFilter &= "[Fournisseur]='" & TextBox3.Text & "'" end if
D'ailleurs cette logique doit être utilisée aussi pour les OR si l'on ne veut pas avoir les n°, designation ou fournisseurs vide.

Si on doit pouvoir rechercher une valeur vide, que se soit avec des OR ou des AND, le mieux est encore d'activer le textBox correspondant avec une case à cocher et de ne faire le filtre que si celle-ci est cochée au lieu de tester .

Merci de votre aide , je fait quelqueschose de semblable.
Je recherchais egalement comment faire une recherche de caractere mais j'ai trouver avec l'argument Like. je tripatouille la syntaxe

j'ai cette erreur quand je me retrouve dans le cas ou je cherche sur deux champs
La conversion de la chaîne "[Designation] like '%pompe%'" en type 'Long' n'est pas valide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
    Private Sub Button3_Click(sender As Object, e As System.EventArgs) Handles Button3.Click
        Dim rech1 As String, rech2 As String, rech3 As String, recha As String, rechb As String, rechc As String
        Dim filt As New DataView
        Dim filt1 As New DataView
        Dim filt2 As New DataView
 
        rech1 = TextBox1.Text
        rech2 = TextBox2.Text
        rech3 = TextBox3.Text
 
 
 
        If rech1 <> "" Then '   Or rech2 <> "" Or rech3 <> "" Then
            recha = "[N°]='" & rech1 & "'"
 
            With filt
                .Table = DBGMAODataSet.Tables("Materiel")
                .RowFilter = recha
            End With
        End If
 
        If rech2 <> "" And rech3 = "" Then
 
            With filt
                .Table = DBGMAODataSet.Tables("Materiel")
                .RowFilter = "[Designation] like '%" & rech2 & "%'"
            End With
 
        End If
 
        If rech2 <> "" And rech3 <> "" Then
            rechc = "[Fournisseur]='" & rech3 & "'"
            rechb = "[Designation] like '%" & rech2 & "%'"
            With filt
                .Table = DBGMAODataSet.Tables("Materiel")
                .RowFilter = rechb And rechc
            End With
 
 
        End If
 
        DataGridView1.DataSource = filt
 
 
    End Sub

avez vous une idée ?

22/08/2012, 22h05
Graffito

Code:

.RowFilter = rechb & "And" & rechc
22/08/2012, 22h07
Sankasssss

Je pense que ca vient de

Code:

.RowFilter = rechb And rechc

=>

Code:

.RowFilter = rechb & " And " & rechc

EDIT : Grillé par Graffito, mais mets des espaces dans le AND ;)
22/08/2012, 22h17
Ashireon

Cool impec ca marche nickel.
Avec ce forum je vais comprendre comment fonctionne VB.net avant meme de faire mes formations en Octobre :-)

Nota : And OR tous ca , je connais à la base je suis automaticien , je connais.
Ce sont les syntaxe de VB qui me posent le plus de prob sur les " ' ... dans une expression ca fait foutoir je trouve

.

Tu as un problème, à moins que se ne soit volontaire, dans tes conditions.

Car si rech1 n'est pas vide, tu paramètres une première fois la vue :
Code:

1 2 3 4 5 6 7 8 If rech1 <> "" Then ' Or rech2 <> "" Or rech3 <> "" Then recha = "[N°]='" & rech1 & "'" With filt .Table = DBGMAODataSet.Tables("Materiel") .RowFilter = recha End With End If
mais juste après, si quelque chose existe dans rech2 mais pas dans rech3, on écrase les paramètres précédent de filt :
Code:

1 2 3 4 5 6 7 8 If rech2 <> "" And rech3 = "" Then With filt .Table = DBGMAODataSet.Tables("Materiel") .RowFilter = "[Designation] like '%" & rech2 & "%'" End With End If
Ensuite, si rech2 et rech3 ne sont pas vide, on écrase encore, ce qui annule aussi rech1.
Code:

1 2 3 4 5 6 7 8 9 10 If rech2 <> "" And rech3 <> "" Then rechc = "[Fournisseur]='" & rech3 & "'" rechb = "[Designation] like '%" & rech2 & "%'" With filt .Table = DBGMAODataSet.Tables("Materiel") .RowFilter = rechb And rechc End With End If
Donc actuellement on peut en déduire que l'on a le choix :

Soit mettre un N° en laissant les deux autres vides (Designation et Fournisseur).
Soit mettre une Designation en laissant Fournisseur vide, mais le n° sera ignoré et seul la Designation recherchée.
Soit mettre une Designation et un Fournisseur, mais le n° sera aussi ignoré.

Citation:

Envoyé par Ashireon

Cool impec ca marche nickel.
Avec ce forum je vais comprendre comment fonctionne VB.net avant meme de faire mes formations en Octobre :-)

Nota : And OR tous ca , je connais à la base je suis automaticien , je connais.
Ce sont les syntaxe de VB qui me posent le plus de prob sur les " ' ... dans une expression ca fait foutoir je trouve

.

Le forum est la pour ça, n'hésite pas à lire l'excellent cours gratuit de Philippe Lasserre, il peut paraître lourd à première vue mais il est tellement bien écrit qu'il se lit très facilement :ccool: