Discussion :

[samiou_]

Bonjour,

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

Code :

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

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:



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 :

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

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:



Il me manque une colonne ListeNumLigne


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

[samiou_]

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

[youtpout978]

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

Code :

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

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();

[samiou_]

Bonjour,

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

Code :

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

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:

[samiou_]

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 :

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

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()))}

[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.