Discussion :

[labib23dz]

Bonjour,

tout est dans la question, je souhaiterai calculer le nombre d'interrupteur coché dans une table.

j'ai bien tenté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
POUR TOUTE LIGNE DE  TABLE_LivraisonFournisseur
	SI TABLE_LivraisonFournisseur.COL_Interrupteur= Vrai ALORS 
		NbInterrupteur+=1
	FIN
FIN
SI NbInterrupteur=0 ALORS
	Info("Aucune ligne n'est séléctionnée")
SINON
	Info("ligne sélectionner")
FIN

Merci.

[tatayo]

Bonjour,
C'est une table fichier ou mémoire ?
Le code ne fonctionne pas. Bien. Il plante, ne fait rien, renvoie un résultat erroné ?
Si tu traces le code en pas à pas, qu'est-ce que ça donne ? Quelle est la valeur de TABLE_LivraisonFournisseur.COL_Interrupteur à chaque itération ?

Tatayo.

[dsr57]

Bonjour

Je suis d'accord avec tatayo, on doit en savoir plus, on a le code, mais on ne sait pas ce qui ne va pas ...

J'émets une hypothèse : si ta variable NbInterrupteur = 0 après le parcours de la table.

Je changerais la ligne 2 :

Code :

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

SI TABLE_LivraisonFournisseur.COL_Interrupteur= Vrai ALORS

en

Code :

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

SI COL_Interrupteur= Vrai ALORS

Cela donnerai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
POUR TOUTE LIGNE DE  TABLE_LivraisonFournisseur
	SI COL_Interrupteur= Vrai ALORS 
		NbInterrupteur+=1
	FIN
FIN
SI NbInterrupteur=0 ALORS
	Info("Aucune ligne n'est séléctionnée")
SINON
	Info("ligne sélectionner")
FIN

Bon dev

[Toytoy31]

bonjour,

je suis d'accord avec vous sur beaucoup de point

mais ne serait-il pas plus simple de faire comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
POUR iNdiceLigne = 1 _A_ TableOccurrence(TABLE_LivraisonFournisseur)
	SI TABLE_LivraisonFournisseur.COL_Interrupteur[iNdiceLigne] ALORS
		NbInterrupteur+=1
	FIN
FIN
SI NbInterrupteur = 0 ALORS
	Info("Aucune ligne n'est séléctionnée")
SINON
	Info("ligne sélectionner")
FIN

[labib23dz]

Bonjour,
Merci a vous tous pour vos réponse; et excusez mon retard.

Toytoy31, votre réponse marche très bien.

Merci encore a vous tous.

Bonne journée.