1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim ListeOv As IEnumerable = From Colonne In TableOV.AsEnumerable _
Group Colonne By New With {.Groupe = (Colonne.Field(Of String)("Groupe"))}.Groupe, _
New With {.Mois = (Colonne.Field(Of String)("Mois"))}.MoisOV, _
New With {.Annee = (Colonne.Field(Of String)("Annee"))}.AnneeOV, _
New With {.MontantBanque = (Colonne.Field(Of Decimal)("MontantBanque"))}.MontantBanque, _
New With {.Banque = (Colonne.Field(Of String)("Banque"))}.Banque, _
New With {.DateTraitement = (Colonne.Field(Of Date)("DateTraitement"))}.DateTraitement, _
New With {.VILLE = (Colonne.Field(Of String)("VILLE"))}.VILLE, _
New With {.CodeVirement = (Colonne.Field(Of String)("CodeVirement"))}.CodeVirement, _
New With {.TypePaie = (Colonne.Field(Of String)("TypePaie"))}.TypePaie, _
New With {.Matricule = (Colonne.Field(Of String)("Matricule"))}.Matricule, _
New With {.NOM = (Colonne.Field(Of String)("NOM"))}.NOM, _
New With {.CompteBanque = (Colonne.Field(Of String)("CompteBanque"))}.CompteBanque, _
New With {.CodeAgence = (Colonne.Field(Of String)("CodeAgence"))}.CodeAgence, _
New With {.MontantEnLettres = (Colonne.Field(Of String)("MontantEnLettres"))}.MontantEnLettres _
Into Montant = Sum(Colonne.Field(Of Decimal)("Montant")) _
Select New With {Mois, Annee, Montant, MontantBanque, Banque, DateTraitement, VILLE, _
CodeVirement, TypePaie, Matricule, NOM, CompteBanque, _
CodeAgence, Groupe, MontantEnLettres} |
Partager