Discussion :

[Astragale]

Bonjour,

Je ne suis vraiment pas familier en VB alors je me dois de me trouner vers vous.

J'utilise VB6. Dans mon projet j'ai une table 'INFO' qui contient les champs
ex: NoClient, NomClient, Produit.

Le but est que je dois appliquer un calcul si l'enregistrement précédent sur le NoClient est égale à l'enregistrement en cours. Et ce jusqu'à la fin de mon fichier.

enreg(1) =NoClient = 12345
enreg(2) =NoClient = 12345
j'applisque ma formule


enreg(1) =NoClient = 99999
enreg(2) =NoClient = 12345
je ne fais rien


merci beaucoup de m'aider

[nico9360]

bonjour

c'est pas trés clair,
if.........then

[iclic]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim i as integer
dim findetable as integer
 
for i= 1 to findetable
 
    if enreg( i +1 ) =enreg( i ) then
               "j'applique la formule"
                elseif i = findetable then
                exit for
    end if
next

A+

[ProgElecT]

Salut

Code :

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

for i= 1 to findetable

provoquera une erreur (Erreur d'éxécution N°9, Indice en dehors de la plage), à cause de

Code :

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

enreg( i +1 )

car cette condition étant évalué avant le ElseIf qui suit.

solution pour ne pas déclancher l'erreur tout en supprimant la condition ElseIf

Code :

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

for i= 1 to findetable-1

je dois appliquer un calcul si l'enregistrement précédent sur le NoClient est égale à l'enregistrement en cours. Et ce jusqu'à la fin de mon fichier.

Astragale peux-tu nous préciser, ton traitement porte sur une Table et/ou un fichier ?
La strtégie pouvant différer (pensant a la possibilité de Order By sur le champs NoClient (s'il est bien un numérique).

[iclic]

Bonjour,

provoquera une erreur (Erreur d'éxécution N°9, Indice en dehors de la plage)

Exact Progelect !
Et en plus solution encore plus simple.

A+

[Astragale]

Désolée pour mon manque de clarté.

Ma table est une table access nommée Commande, contenant des enregistrements et comme champs:
NoClient, NomClient, NoCommande, Prix.
Donc je peux retrouver plusieurs no de commande pour le même client et en plus, le no de commande peux se répéter deux fois s'il y a lieu.
Par contre, si le no de commande se répète, sur le deuxième enregistrement du non de commande, je dois mettre le prix à zéro.

Ex:


NoClient NomClient NoCommande Prix

9999 yyyyy bbbb 25.00 $
8888 ccccc uuuu 35.00 $
1234 xxxxx abcd 10.00 $
1234 xxxxx abcd 0.00 $
7777 kkkkk vvvv 45.00 $
Donc comme le NoCommande abcd se répète pour le même client,
je mets 0 sur la deuxième ligne de ce numéro de commande.


merci