Recherche de row dans un DataGridView via une textbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

On pourrait aussi essayer quelque chose du genre :

Code:

1
2
3
4
Dim dt as DataTable = d2015_MySqlResultAsTable
dgvtest.DataSource = (From dr as DataRow In dt.Rows() 'ou dt.AsEnumerable selon la doc MSDN
                               Where dr.item(1).ToString.ToUpper.StartsWith("C"c)
                               Select dr).ToList()

Bonjour Pol63
Oui, je viens de tester ton code auquel j'y ai ajouté des commentaires :
Code:

1 2 3 4 5 6 7 Dim dt As DataTable = d2015_MySqlResultAsTable If dt.Rows.Count > 0 Then MsgBox("> 0 ok") ' j'ai bien le msgbox comme quoi j'ai dt.Row > 0 Dim ds = dt.AsEnumerable.Where(Function(x As DataRow) x.Item(1).ToString.StartsWith("C")) If ds.Count = 0 Then MsgBox("trop filtré !") ' ici pas de msgbox ce qui implique que le count du filtrage est > 0 dgvtest.DataSource = ds
le DgvTest reste désespérément vide :(
Il semble que le contenu de ds (après tri par la fonction) n'ai rien à voir avec celui de la Table dt (originale).
J'ai bien le nombre de colonne, nombre de lignes attendu, mais le contenu ne correspond pas du tout au type de contenu de ma table d'origine.
Humm!! c'est à devenir dingue :aie:
Patrick

11/03/2015, 10h28
Kropernic

Citation:

Envoyé par patrickvier

J'ai bien le nombre de colonne, nombre de lignes attendu, mais le contenu ne correspond pas du tout au type de contenu de ma table d'origine.

Qu'est-ce qui est différent exactement ?

Sinon, je persiste et je signe avec

Code:

dgvTest.DataSource = ds.ToList()

Faudrait éventuellement aussi voir comment les colonnes de ton dgv sont initialisées. Car si jamais tu les as bindées pour matcher un nom de colonne de ta table par exemple, je ne suis pas sûr que la requête linq ou la fonction lambda conserve les noms et du coup, il y a bien du contenu en DataSource du dgv mais ce n'est pas affiché car il ne sait pas où le mettre ^^.

1 pièce(s) jointe(s)

Bon, j'ai décidé de créer directement une table from scratch en code, pour que vous puissiez tester vous aussi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        ' Debut partie test
        ' Création de la Table
        Dim dt As New DataTable
        dt.Columns.Add("id", GetType(Integer))
        dt.Columns.Add("numero", GetType(String))
        dt.Columns.Add("nom", GetType(String))
        ' Fill de la table
        dt.Rows.Add(1, "83", "VAR")
        dt.Rows.Add(2, "C83", "HYERES")
        dt.Rows.Add(3, "C83", "SAINTE-MAXIME")
        dt.Rows.Add(4, "C83", "LA CRAU")
 
        If dt.Rows.Count > 0 Then MsgBox("> 0 ok")
        ' j'ai bien le msgbox comme quoi j'ai dt.Row > 0
        Dim ds = dt.AsEnumerable.Where(Function(x As DataRow) x.Item(1).ToString.StartsWith("C")).ToList
        If ds.Count = 0 Then MsgBox("trop filtré !")
        ' ici pas de msgbox ce qui implique que le count du filtrage est > 0
        DataGridView1.DataSource = ds
        'Exit Sub
        ' Fin Partie Test

J'ai créé un DatagridView1 from scratch (pas de bind ou autre) dans la Form principale.
Ci dessous un snapshot du résultat dans le datagridview1 :
Pièce jointe 171355

Sans le "ToList", le dgv est vide.
Là, je suis perplexe...
Patrick

Voici ma copie corrigée ^^
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ' Debut partie test ' Création de la Table Dim dt As New DataTable dt.Columns.Add("id", GetType(Integer)) dt.Columns.Add("numero", GetType(String)) dt.Columns.Add("nom", GetType(String)) ' Fill de la table dt.Rows.Add(1, "83", "VAR") dt.Rows.Add(2, "C83", "HYERES") dt.Rows.Add(3, "C83", "SAINTE-MAXIME") dt.Rows.Add(4, "C83", "LA CRAU") 'If dt.Rows.Count > 0 Then MsgBox("> 0 ok") ' j'ai bien le msgbox comme quoi j'ai dt.Row > 0 'Dim ds = dt.AsEnumerable.Where(Function(x As DataRow) x.Item(1).ToString.StartsWith("C")).ToList Dim ds = (From dr As DataRow In dt.AsEnumerable Where dr.Item(1).ToString.ToUpper.StartsWith("C") Select id = dr.Item(0), numero = dr.Item(1), nom = dr.Item(2)) 'If ds.Count = 0 Then MsgBox("trop filtré !") ' ici pas de msgbox ce qui implique que le count du filtrage est > 0 dgv.DataSource = ds.ToList 'Exit Sub ' Fin Partie Test
Le problème vient du fait qu'on passe au DGV une liste d'objets de type DataRow. Et comme on le voit dans l'exemple que tu viens de donner, les propriétés affichées sont celles d'un objet de ce type. Or ce qu'on veut afficher, c'est ce qu'il y a dans la collection Item pour chaque datarow de la liste qu'on passe. Bon après, pourquoi il n'y a que ces 4 là affichées et pas toutes les autres, faudrait voir comment la classe DataRow est faite.

A ma connaissance, "la profondeur d'affichage" (si qqn à un meilleur terme, je suis preneur) d'un dgv n'est que de 1. Pas moyen d'aller chercher une propriété dans une liste [qui est dans une liste] qui est dans liste.
Donc dans ma version, j'ai été cherché ce que je voulais afficher et j'en ai fait une liste (de classe anonyme).

C'est ce que fais le Select dans la requête Linq que j'ai écrite. Il crée "à la volée" une classe qui n'a pas de nom (on voit bien que je j'en donne pas), qui contient les propriétés "id", "numero" et "nom" et il y met les valeurs contenues respectivement dans Item(0), Item(1) et Item(2). Le type des propriétés de cette classe est inférée d'après le type de ce qu'on mets dedans.

11/03/2015, 11h53
patrickvier

Kropernic,
En effet, au vu de tes explications, c'est une incompatibilité, à priori, entre le dgv et la class datarow.
Bon, en tout cas, j'avais déjà ça :

Code:

dgv.DataSource = From tb As DataRow In Table.AsEnumerable Where Not tb.Field(Of String)("numero").StartsWith("C") Select tb

et ça marche, aussi.
Merci de ton aide, mais cette fonction et/ou Sub de type lambda est vraiment intéressant.
A bientôt
Patrick
11/03/2015, 12h49
Kropernic

Après réflexion, je pense que passer des datarows à un datagridview ne peut fonctionner que si on les donne via une datatable car c'est elle qui contient la définition des colonnes de la datarow. Sans quoi, le datagridview n'a qu'une liste d'objets et ne sait pas quoi en faire. Quelque chose d'approchant quoi.

Voilà encore un argument de plus qui vient s'ajouter à ma liste contre les datatables, datarow, dataview et autres. Je préfère de loin créer mes propres objets. Ce genre de problème n'arrivent pas ^^.
11/03/2015, 14h08
patrickvier

En effet, créer ses propres collections c'est plus flexible, mais je ne maitrise pas encore très bien tout ce qui est Class, Sub New, delegate et autres joyeusetés de ce genre là.
Va falloir aussi que je regarde vers les Async et Await, BGworker... car ça aussi c'est bien intéressant. J'ai un truc à faire comme ça, mais pour l'instant j'ai juste besoin d'une pauvre ProgressBar qui déclenche à la fin d'un compteur, un event qui lui ira faire une requete. Donc j'ai déjà tout pour ça, mais pas la structure du BGworker. ceci dit, ça sera sur un autre post ;)
Je prend bien note de la super fonction anonyme ;)
Merci et je suis certain, à bientôt
Patrick

Voir 40 message(s) de cette discussion en une page