PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV (précédentes versions) → impossible d'enregistrer le classement
impossible d'enregistrer le classement
Débuté par Sansbill, 02 sep. 2018 11:57 - Aucune réponse
Membre enregistré
1 message
Posté le 02 septembre 2018 - 11:57
salut a tous, merci pour votre attention, je suis un débutant en windev.
je développe un projet de gestion de bulletin de note
j'ai calculé la moyenne des élèves que j'ai stock dans le fichier MOYENNES, puis j'ai fait le classement (rang) des moyennes.
le soucis est que je n'arrive pas à enregistrer le classements obtenu dans le fichier MOYENNES.

Voici le code que j'utilise pour faire le classement:

Monindex est un entier
iindex est un entier
POUR Monindex=1 _A_ TableCount(TABLE_MOYENNES)
monrang1 est un entier=1
monrang2 est un entier=1
monrang3 est un entier=1
POUR iindex=1 _A_ TableCount(TABLE_MOYENNES)
SI TABLE_MOYENNES.COL_MOy_trim[iindex]>TABLE_MOYENNES.COL_MOy_trim[Monindex] ALORS
monrang1++
FIN
SI TABLE_MOYENNES.COL_Moy_bl[iindex]>TABLE_MOYENNESOL_Moy_bl[Monindex] ALORS
monrang2++
FIN
SI TABLE_MOYENNES.COL_Moy_bs[iindex]>TABLE_MOYENNESE.COL_Moy_bs[Monindex] ALORS
monrang3++
FIN
FIN
TABLE_MOYENNES.COL_RangTrim[Monindex]=monrang1
TABLE_MOYENNES.COL_Rangblilet[Monindex]=monrang2
TABLE_MOYENNES.COL_Rangbilsci[Monindex]=monrang3
FIN


et ci-dessous le code pour enregistrer:

POUR TOUT LIGNE DE TABLE_MOYENNES
MOYENNES.Rangtrim = TABLE_MOYENNES.Rangtrim
MOYENNES.Rangbillet = TABLE_MOYENNES.Rangbillet
MOYENNES.Rangbilsci = TABLE_MOYENNES.Rangbilsci
HModifie(MOYENNES)
FIN

j'ai besoin de votre aide!!!