Discussion :

[Astro8899]

Bonjour,

Dans mon programme Vb.net je parcour une table qui est appeller recevabl. Pour chaque client je veux additionner le montant qu'il doit payer. Alors voici mon code:

For Each dr In objds.Tables("recevabl").Rows()
x = dr("CLIENT")
While dr("CLIENT") = x
a = a + dr("MONTANT")
End While
Next dr

Mais cela me donne une boucle sans fin car x ne change jamais alors comment faire pour qu'il passe au record suivant pour vérifier si x a changer.

merci et bonne journée

[Gdal]

Salut,

Je pense que tu as la mauvaise métode.....
Il faut une boucle (peut-être)....
Perso je ferais une requête de sélection avec un SUM sur le champ qui t'intéresse.... ensuite je passerais au client suivant.

Regarde dans ADO.net il y a des classes qui servent à parcourir les tables...

Gwendal

[olsimare]

Bonjour.

Effectivement, je ne vois pas pourquoi x ou dr("CLIENT") changeraient dans :
While dr("CLIENT") = x
a = a + dr("MONTANT")
End While

Là effectivement t'es parti pour l'éternité...

C'est quoi le but ?

Cdt.

[Astro8899]

Le but est que je veux calculer le montant des recevables pour chaque client que je possède. Je veux savoir quel montant le client doit et savoir si le montant date de 30, 60 ou 90 jours.

merci