LINQ to list d'objets

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

J’ai une liste d'objets sur laquelle je fais une requête LINQ
Code:

1 2 3 4 '---------------numLignes est une liste d'integer numLignes.Add(numLigne) lstRapport.Add(New Control(societeRef, piece, nombreLigne, nombreAnomalie, numLignes))
Voici ma liste lstRapport remplie:

Pièce jointe 156025

J’ai fait une requête LINQ qui me retourne le nombre d'anomalie et le nombre de linge par société et par pièce
Code:

1 2 3 4 5 6 Dim rapportFinal = From rpt In lstRapport Group By rpt.NumPiece, rpt.Societe Into mygroup = Group, Count(), Sum(rpt.NombreAnomalie) Select New With {.societe = Societe, .piece = NumPiece, .nombreligne = mygroup.Count(), .nombreAno = Sum, . ListeNumLigne = ?????????(liste numLigne en anomalie (nombreAnomalie <> 0)) }
le résultat de ma requête est le suivant:

Pièce jointe 156026

Il me manque une colonne ListeNumLigne

Pouvez-vous m'aider SVP à avoir ce résultat

12/09/2014, 14h41
samiou_

Quelqu'un peut m'aider ou me dire si c'est faisable ou non

C'est du c# avec les méthodes d'extension

Code:

1
2
3
4
5
6
7
8
9
 
var rapportFinal = lstRapport.
				GroupBy(l=>new {l.NumPiece,l.Societe}).
				Select(g=> new {Societe=g.Key.Societe,
								NumPiece=g.Key.NumPiece,
								NombreLigne=g.Count(),
								NombreAno=g.Where(n=>n.NombreAnomalie>0).Sum(n=>n.NombreAnomalie),
								NumLignes= string.Join(",", g.Where(n=>n.NombreAnomalie>0).Select(ano=>ano.NumLigne.ToString()).ToArray())
									}).ToList();

1 pièce(s) jointe(s)

Bonjour,

Merci beaucoup pour votre réponse, j'ai essayer de convertir votre code en VB.net

Code:

1
2
3
4
5
6
7
8
9
10
 
 
Dim rapportFinal = lstRapport.
            GroupBy(Function(l) New With {l.NumPiece, l.Societe}).Select(Function(g) New With {.Societe = g.Key.Societe, _
                                                                                               .NumPiece = g.Key.NumPiece, _
                                                                                               .nombreLigne = g.Count(), _
                                                                                               .NombreAno = g.Where(Function(n) n.NombreAnomalie > 0).Sum(Function(n) n.NombreAnomalie), _
                                                                                                                                                          .NumLignes = String.Join _
                                                                                            (",", g.Where(Function(n) n.NombreAnomalie > 0).Select(Function(ano) ano.NumLigne.ToString()).ToArray()) _
                                                                                              }).ToList()

Mais le resultat n'est pas bon, il me retourne toute ma liste, il ne fait ni du filtre ni du group by et il affiche un message d'erreur
Voici le resultat:
Pièce jointe 156201

Merci beaucoup, j'ai corrigé ma requête et j'ai réussi à obtenir le bon résultat

Voici ma nouvelle requête si quelqu’un est intéressé :

Code:

1
2
3
4
5
6
7
 
 
   Dim rapportFinal = From rpt In lstRapport
                           Group By rpt.NumPiece, rpt.Societe
                            Into mygroup = Group, Count(), Sum(rpt.NombreAnomalie)
                            Select New With {.societe = Societe, .piece = NumPiece, .nombreligne = mygroup.Count(), .nombreAno = Sum, _
                                            .numLignes = String.Join(",", mygroup.Where(Function(n) n.NombreAnomalie > 0).Select(Function(ano) ano.NumLigne.ToString()))}

15/09/2014, 17h03
youtpout978

Génial ravi d'avoir pu t'aider, surtout que tu as su te débrouiller tout seul pour adapter le code à ta requête.