sTable est une chaine = <Ma table>
sChampsAComptabiliser est une chaine = <Nom de la colonne>
i est un entier
nTotal est un reel
Nb est un entier = {sTable}..Occurrence
SI Nb = 0 Alors RETOUR
POUR i = 1 à Nb
nTotal += {sChampsAComptabiliser}[i]
FIN
INFO("Montant de la colonne : " + nTotal)
Rs est une Source de Donnees
Sql est une chaine
Sql = "SELECT SUM(<Nom de ma rubrique>) AS TOTAL FROM <Nom du fichier>
SI PAS HExecuteRequeteSql(Rs,HrequeteDefaut,Sql) ALORS
ERREUR(HErreurInfo())
RETOUR
FIN
HlitPremier(Rs)
Info("Le montant total est : " + Rs.TOTAL)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=570&post_id=2076