Discussion :

[Kropernic]

Hello,

Je rentre directement dans le vif du sujet avec un bout de code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
    Private Sub btnFilter_Click(sender As Object, e As EventArgs)
        Dim data = (From d In Promo.DTO.DetailsDemo
                    Select Id = d.Id, Department = d.CodeDemo.Department, CodeDemo = d.CodeDemo, Percentage = d.Percentage, Description = d.Description, Note = d.Note, ListType = d.ListType
                    From d In Promo.DTO.DetailsDepartment
                    Select Id = d.Id, Department = d.Department, CodeDemo = New PROMO_DTO.CodeDemo(0, "0000", "", "", Nothing, Nothing, Nothing, Nothing, Nothing, False), Percentage = d.Percentage, Description = d.Description, Note = d.Note, ListType = d.ListType).ToList
 
 
        If ckbDepartment.Checked Then
            data = (From d In data
                    Where d.Department.Id = CShort(cbDepartment.SelectedValue)
                    Select d).ToList
        End If
 
        If ckbConcession.Checked Then
            data = (From d In data
                    Where d.CodeDemo.Id = CInt(cbConcession.SelectedValue)
                    Select d).ToList
        End If
 
        If ckbPercent.Checked Then
            data = (From d In data
                    Where d.Percentage = nudPercent.Value
                    Select d).ToList
        End If
 
        dgvDemo.DataSource = data
 
    End Sub

J'ai donc data qui est wrapper autour d'objets similaire mais différents (l'un possède une propriété CodeDemo et l'autre non). Or j'ai besoin de donner la possibilité à l'utilisateur de filtrer le contenu de ce wrapper suivant 3 critères qui peuvent se combiner.

J'ai donc utiliser des checkboxes pour activer ou non le critère de filtrage et si c'est coché, je fais le filtre.

A priori, je trouve ça plutôt propre mais j'aurais voulu avoir votre avis.

Aussi, je cherche une manière plus élégante pour boucher le trou que devrait occuper la propriété CodeDemo dans la 2e selection de mon wrapper...
Actuellement, j'ai donc ceci (je remets le code du dessus) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim data = (From d In Promo.DTO.DetailsDemo
                     Select Id = d.Id, Department = d.CodeDemo.Department, CodeDemo =  d.CodeDemo, Percentage = d.Percentage, Description = d.Description, Note  = d.Note, ListType = d.ListType
                    From d In Promo.DTO.DetailsDepartment
                     Select Id = d.Id, Department = d.Department, CodeDemo = New  PROMO_DTO.CodeDemo(0, "0000", "", "", Nothing, Nothing, Nothing,  Nothing, Nothing, False), Percentage = d.Percentage, Description =  d.Description, Note = d.Note, ListType = d.ListType).ToList

C'est donc le New PROMO_DTO.CodeDemo(0, "0000", "", "", Nothing, Nothing, Nothing, Nothing, Nothing, False) qui m'ennuie. Je peux mettre nothing et le wrapper est valide mais la propriété du type anonyme est alors de type Object et non pas de type CodeDemo et du coup, pas moyen de faire le filtre (à moins que je puisse faire un cast au moment du filtrage... je viens d'y penser).
J'aimerais assez ne pas devoir créer un dummy CodeDemo dans ce second select.

Une idée ?? (j'ai tenté la recherche sur le net mais vu que j'ignore les mots clefs à utiliser, je n'ai pas trouvé mon bonheur)

[Sehnsucht]

Perso ce qui me gêne c'est que tu fais à chaque fois un ToList sur tes requetes donc tu construis potentiellement 4 listes (et selon la volumétrie que tu as ça peut être lourd).
Pourquoi ne pas faire le ToList qu'à la fin et donc créer une seule requête au fur et à mesure (et l'appel au ToList lancera l'exécution du tout juste à la fin).

Après pour l'histoire du CodeDemo à Nothing qui devient typé Object dans le type anonyme ; tu n'aurais pas le problème s'il ne s'agissait pas d'un type anonyme mais sinon il te suffit de typer explicitement le Nothing que tu passes à ton type anonyme
Select ... CodeDemo = DirectCast(Nothing, CodeDemo)Ce qui me préoccupe le plus c'est que je ne suis pas certain que ton data initial te donne ce que tu attends ; le fait d'enchainer tes 2 From / Select ne va pas "concaténer" les résultats des 2 sous-requetes ; un exemple rapide pour illustrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim query = From c1 In "hello" Select c1
            From c2 In "world" Select c2

Si on itérait sur les éléments de query on obtiendrait pas ``helloworld`` mais plutôt ``worldworldworldworldworld`` ; pas sûr du coup que ce soit ce que tu souhaites à mon avis tu souhaites plutôt ceci (en reprenant mon exemple) :
Dim query = (From c In "hello" Select c).Concat(From c In "world" Select c)

[Kropernic]

Hello Sehnsucht,

Tu as probablement raison pour ma query initiale. Je n'ai pas encore de données pour tester et vu que je ne fais jamais de requêtes "complexes", j'ai tapé ça au pifomètre^^.
Je note donc ta suggestion .

Pour les .ToList à répétition, je veux bien m'en passer mais comment construis-tu une requête au fur et à mesure ??

[Sehnsucht]

en enlevant les ToList et en profitant de l'exécution différée

[Kropernic]

Fichtre, ça marche !

J'avais pourtant tenté un truc du genre et VS me râlait dessus (un truc du genre impossible de convertir le type anonyme en un autre truc dont je n'ai pas retenu le nom).

Forcément, j'avais du faire quelque chose de travers .

Bref, ça me semble nickel maintenant.

La query ne s'exécute qu'une seule fois et je n'ai pas de dummy codedemo dans mon wrapper. Merci !

Que demander de plus ? ... Ah si ! Un p'tit café ! *s'en va à la machine*

[Kropernic]

Hello,

Je reviens sur le sujet car j'aborde l'autre partie du projet et j'ai le même genre de souci que j'avais eu... Honnêtement, je ne pige pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim data = (From d In Promo.DTO.DetailsOwn
                    Select Id = d.Id, Department = d.Department, BrandCode = d.Brand.Code, BrandName = d.Brand.Description, Percentage = d.Percentage, PercentType = d.PercentType.Description, Description = d.Description, Note = d.Note, ListType = d.ListType).Concat(
                    From d In Promo.DTO.DetailsDepartment
                    Select id = d.Id, Department = d.Department, BrandCode = Nothing, BrandName = Nothing, Percentage = d.Percentage, PercentType = d.PercentType.Description, Description = d.Description, Note = d.Note, ListType = d.ListType)

Voici le code et voici le message d'erreur :

Error 1 'System.Collections.Generic.IEnumerable(Of <anonymous type>)' cannot be converted to 'System.Collections.Generic.IEnumerable(Of <anonymous type>)' because '<anonymous type> (line 219)' is not derived from '<anonymous type> (line 217)', as required for the 'Out' generic parameter 'T' in 'Interface IEnumerable(Of Out T)'.

Je fais pourtant bien comme il a été dit plus haut non ?

EDIT : Ce sont les =Nothing qu'il n'aime pas... J'avais mis cela car CAST(Nothing, Integer), il n'aimait pas non plus. Si je mets 0 directement (et "" pour le string), alors VS ne râle plus...

EDIT 2 : Normal qu'il n'aime pas CAST(Nothing, Integer) vu que c'est CType ou DirectCast qu'il faut mettre (on va mettre ça sur le dos du lundi matin)