Group by Sum et count sur des objets

Version imprimable

Bonjour,
Voilà j'ai trois objets
GenRsaErreur de propriétes CodeErreur et LibelleErreur et de constructeur

Code:

Public Sub New(ByVal codErreur As eCodeErreursGenRsa)

eCodeErreursGenRsa est une énumération

GenRsaRejet avec entre autre les propriétés
Montant entier
Erreur() GenRsaErreur

Et GenRsaRejetStatistique ayant les propriétés suivantes
Erreur
Nombre
NombreTotal
Montant

Je cherche à creer une liste de GenRsaRejetStatistique à partir d'une liste de
GenRsaRejet
GenRsaRejet doit contenir pour chaque code erreur de la liste GenrsaRejet
Code:

1 2 Montant=Somme(genrsaRejet.Montant) Nombre=Somme(GenrsaRejet.Nombre)
En Sql cela donnerait
Code:

1 2 3 Select codeErreur, sum(Montant) as montant, count(*) as Nombre from genrsarejet group by codeErreur
Voilà mon code qui ne compile pas le moins du monde.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public Shared Function GetListGenRsaRejetStatistique(ByVal listGenrsaRejetsFiltree As List(Of GenRsaRejet), ByVal typePrestation As [DIM].DimTypePrestation) As List(Of GenRsaRejetStatistique) Dim dicErreur As Dictionary(Of GenRsaErreur.eCodeErreursGenRsa, String) dicErreur = GenRsaErreur.DicoErreurMessageParType(typePrestation) Dim iMontantTotal As Integer? Dim iNombreTotal As Integer 'Dim errCode As GenRsaErreur.eCodeErreursGenRsa iMontantTotal = listGenrsaRejetsFiltree.Sum(Function(r As GenRsaRejet) r.Montant) If iMontantTotal Is Nothing Then iMontantTotal = 0 End If iNombreTotal = listGenrsaRejetsFiltree.Count Dim result = From lr In listGenrsaRejetsFiltree _ Group By lr.Erreur.CodeErreur Into somme = Sum(lr.Montant) Select New GenRsaRejetStatistique With {.Erreur = New GenRsaErreur(lr.Erreur.CodeErreur), .Montant = somme, .NombreTotal = iNombreTotal} Return result.ToList() End Function
Merci de votre aide
Soazig

Bonjour,
Le problème initial est résolu Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        Public Shared Function GetListGenRsaRejetStatistique(ByVal listGenrsaRejetsFiltree As List(Of GenRsaRejet), ByVal typePrestation As [DIM].DimTypePrestation) As List(Of GenRsaRejetStatistique)
            Dim dicErreur As Dictionary(Of GenRsaErreur.eCodeErreursGenRsa, String)
            dicErreur = GenRsaErreur.DicoErreurMessageParType(typePrestation)
            Dim iMontantTotal As Integer?
            Dim iNombreTotal As Integer
            iMontantTotal = listGenrsaRejetsFiltree.Sum(Function(r As GenRsaRejet) r.Montant)
            If iMontantTotal Is Nothing Then
                iMontantTotal = 0
            End If
            iNombreTotal = listGenrsaRejetsFiltree.Count
            Dim result = From lr In listGenrsaRejetsFiltree _
                         Group By err = lr.Erreur.CodeErreur Into sommeMontant = Sum(lr.Montant), nombreElem = Count() _
                         Select New GenRsaRejetStatistique With {.Erreur = New GenRsaErreur(err), .Montant = sommeMontant, .Nombre = nombreElem, .NombreTotal = iNombreTotal}
 
            Dim rs = result.ToList
            Return rs
        End Function

Mais en En plus il me faut faire une jointure externe entre le dictionnaire dicErreur et mon résultat sur dicErreur.key =GenRsaRejetStatistique.Erreur.CodeErreur. Je voudrais toutes les erreurs du dicErreur même celle qui ne sont pas dans result.
Si je ne m'en sors pas toute seule je reviendrais vers vous.

Soazig

Bonjour,
Et voilà la requête magique pour faire cela en jointure externe

Code:

1
2
3
4
            Dim result = From dic In dicErreur _
                    Group Join rej In listGenrsaRejetsFiltree _
                    On dic.Key Equals rej.Erreur.CodeErreur Into sommeMontant = Sum(rej.Montant), nombreElem = Count() _
              Select New GenRsaRejetStatistique With {.Erreur = New GenRsaErreur(dic.Key), .Montant = sommeMontant, .Nombre = nombreElem, .NombreTotal = iNombreTotal}

A+
Soazig