Discussion :

[lr.remy]

Bonjour,

j'ai un petit soucis avec une requête. Je souhaite récupérer des informations en fonction du choix de l'utilisateur.
Par exemple pour récupérer les valeurs des champs 'value' 'status' ainsi que le nombre de 'status' pour chaque 'value' je fais :

Code :

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

1
2
3
Dim test = From p In dataChart Order By p.Status
                           Group By p.Status, p.value Into xValues = Group
                           Select series = xValues.LastOrDefault.value, X = xValues.LastOrDefault.Status, Y = xValues.Count

J'obtiens bien ce que je souhaite, mais le soucis c'est que l'utilisateur peut choisir d'autres informations. J'essaie donc de mettre en place une requête dynamique mais lorsque je fais

Code :

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

1
2
3
4
                Dim test = From p In dataChart Order By p.GetType.GetProperty(model.xField)
                           Group By xField = p.GetType.GetProperty(model.xField).Name, yField = p.GetType.GetProperty(model.yField).Name Into xValues = Group
                          Select series = xValues.LastOrDefault.GetType.GetProperty(model.yField).GetValue(xValues.LastOrDefault, Nothing).ToString, _
                           X = xValues.LastOrDefault.GetType.GetProperty(model.xField).GetValue(xValues.LastOrDefault, Nothing).ToString, Y = xValues.Count Order By X

je n'obtient que la valeur de la dernière ligne. Je pense que cela vient du

Code :

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

GetValue(xValues.LastOrDefault, Nothing)

mais pourquoi lors de la première requête, le xValues.LastOrDefault ne pose pas de soucis?

[mermich]

Salut,

Dans un premier temps je ne suis pas sur qu'il soit possible de combiner linq et la reflexion.

Mais surtout c'est illisible, immaintenable et quid des perf ?

Je serai toi, j'essayerai de passer par une autre methode: requetes avec filtre pre-definis, construction de sql plutot qu'utiliser linq etc.

Bonne chance.

[Kropernic]

Si jamais cela peut te donner idées, voici ce que je fais dans un formulaire pour permettre à l'utilisateur de filtrer un datagridview suivant différents critères (jusqu'à 3 chez moi) et de trier la liste comme il le souhaite.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
    Private Sub FilterAndSortData(filters As Dictionary(Of Filter, Decimal), Optional ByVal PropertyToSort As String = Nothing, Optional ByVal sortorder As SortOrder = Nothing)
        Dim data = (From d In Promo.DTO.DetailsOwn
                    Select Id = d.Id, Department = d.Department, Brand = d.Brand, BrandCode = d.Brand.Code, BrandName = d.Brand.Description, Percentage = d.Percentage, PercentType = d.PercentType.Description, Description = d.Description, Note = d.Note, ListType = d.ListType, Type = "Own", Attachment = d.Attachment, Seasons = (d.Seasons.Count > 0), SeasonsList = d.Seasons).Concat(
                    From d In Promo.DTO.DetailsDepartment
                    Select id = d.Id, Department = d.Department, Brand = CType(Nothing, PROMO_DTO.Brand), BrandCode = CType(Nothing, Integer), BrandName = CType(Nothing, String), Percentage = d.Percentage, PercentType = d.PercentType.Description, Description = d.Description, Note = d.Note, ListType = d.ListType, Type = "Dept", Attachment = d.Attachment, Seasons = (d.Seasons.Count > 0), SeasonsList = d.Seasons)
 
 
        If Not IsNothing(filters) Then
            For Each key As Filter In filters.Keys
                Select Case key
                    Case Filter.Department
                        data = (From d In data
                                Where d.Department.Id = dicFilter(key)
                                Select d)
                    Case Filter.Brand
                        data = (From d In data
                                Where d.Brand.Id = dicFilter(key)
                                Select d)
                    Case Filter.Percent
                        data = (From d In data
                                Where d.Percentage = dicFilter(key)
                                Select d)
                End Select
            Next
        End If
 
        If Not IsNothing(PropertyToSort) Then
            If sortorder = Windows.Forms.SortOrder.Ascending Then
                Select Case PropertyToSort
                    Case "Department"
                        data = data.OrderBy(Function(x) x.Department.Code)
                    Case "BrandCode"
                        data = data.OrderBy(Function(x) If(x.Brand Is Nothing, 0, x.Brand.Code))
                        'data = data.OrderBy(Function(x) x.Brand.Code)
                    Case "BrandName"
                        data = data.OrderBy(Function(x) If(x.Brand Is Nothing, "", x.Brand.Description))
                    Case "Percentage"
                        data = data.OrderBy(Function(x) x.Percentage)
                    Case "PercentType"
                        data = data.OrderBy(Function(x) x.PercentType)
                    Case "Description"
                        data = data.OrderBy(Function(x) x.Description)
                    Case "Note"
                        data = data.OrderBy(Function(x) x.Note)
                    Case "ListType"
                        data = data.OrderBy(Function(x) x.ListType)
                End Select
            ElseIf sortorder = Windows.Forms.SortOrder.Descending Then
                Select Case PropertyToSort
                    Case "Department"
                        data = data.OrderByDescending(Function(x) x.Department.Code)
                    Case "BrandCode"
                        data = data.OrderByDescending(Function(x) If(x.Brand Is Nothing, 0, x.Brand.Code))
                    Case "BrandName"
                        data = data.OrderByDescending(Function(x) If(x.Brand Is Nothing, "", x.Brand.Description))
                    Case "Percentage"
                        data = data.OrderByDescending(Function(x) x.Percentage)
                    Case "PercentType"
                        data = data.OrderByDescending(Function(x) x.PercentType)
                    Case "Description"
                        data = data.OrderByDescending(Function(x) x.Description)
                    Case "Note"
                        data = data.OrderByDescending(Function(x) x.Note)
                    Case "ListType"
                        data = data.OrderByDescending(Function(x) x.ListType)
                End Select
            End If
        End If
 
        dgvOwn.DataSource = data.ToList
    End Sub

Je ne prends pas la peine de donner la définition de mes objets car cela ne te sera d'aucune aide. C'est vraiment juste pour la logique utilisée. En espérant que ça puisse s'appliquer à ton cas.

[worm83]

J'ai vite fait lu en travers ton code et les réponses des intervenants.
Il me semble que ce que tu cherche à faire est tout simplement un arbre d'expression, et c'est ce que fait Linq. Je t'invite à regarder en large et en travers les arbres d'expression, le namespace System.Linq.Expressions, et surtout la classe Expression<T>.

edit : Kopernic par exemple ton code serais plus joli en utilisant SwitchCase de cet espace de nom.

[lr.remy]

Bonjour,

Merci pour vos réponses et exemples. Je vais utiliser la même méthode que Kropernic. Je me mets de coté les Expression, je suis pas large niveau timing.

Merci à vous.

[Kropernic]

edit : Kopernic par exemple ton code serais plus joli en utilisant SwitchCase de cet espace de nom.

Certes mais j'en ignorais l'existance jusqu'à ton message. J'ai déjà regardé un peu mais pas encore eu le temps de creuser la question. Mais ça a l'air bien cet affaire. Va falloir que j'apprenne à jouer avec... (les exemples de la MSDN n'avaient pas l'air d'être ce qu'il y a de plus démonstratif pour le coup... )