Discussion :

[abd75web]

Bonjour,
J'ai un DataTable "TableOV" et j'aimrai créer un autre DataTable qui regroupe les données de "TableOv"
Pour regrouper les données j'ai le code suivant:

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

et pour remplir le deuxieme Datatable j'ai

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
                    Dim TableOV2 = New DataTable
                    For Each p In ListeOv
                        Dim rw As DataRow = TableOV2.NewRow()
                        rw("Montant") = p.Montant
                        rw("Annee") = p.Annee
                        rw("Mois") = p.Mois
                        rw("Banque") = p.Banque
                        rw("CodeAgence") = p.CodeAgence
                        rw("CodeVirement") = p.CodeVirement
                        rw("CompteBanque") = p.CompteBanque
                        'rw("DateTraitement") = p.DateTraitement
                        rw("Groupe") = p.Groupe
                        rw("Matricule") = p.Matricule
                        rw("MontantBanque") = p.MontantBanque
                        rw("MontantEnLettres") = p.MontantEnLettres
                        rw("NOM") = p.NOM
                        rw("TypePaie") = p.TypePaie
                        rw("VILLE") = p.VILLE
                        TableOV2.Rows.Add(rw)
                    Next

Mais aprés que je lance le prg, j'ai l'erreur suivante

Le cast spécifié n'est pas valide.

fort possible que ListeOv retourne rien, je ne sais pas où est le problème
merci

[abd75web]

bonjour;
depuis , j'ai pas pu résoudre le problème, j'ai testé plusieurs syntaxes mais j'ai le même message d'erreur

merci

[abd75web]

En fin j'ai trouvé

le problème est que dans la déclaration de la colonne "Montant" de la datatable était "Double", par contre dans la requête j'ai mis "Decimal"

Code :

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

Sum(Colonne.Field(Of Decimal)("Montant"))

donc le problème était de convertir Double en Decimal

Merci