Sql Est une chaine
Rs est une source de données
NbEnr est un entier
Sql =
[
SELECT COUNT(PRODUCTEUR.NOM) AS NB, PRODUCTEUR.NOM AS NOM FROM PRODUCTEUR GROUP BY PRODUCTEUR.NOM
]
SI PAS HExecuteRequeteSql(Rs,HRequeteDefaut,Sql) Alors
Erreur(HErreurInfo())
Retour
Fin
HLitPremier(Rs)
NbEnr = HNbEnr(Rs)
POUR TOUS Rs
TableAjoute(Table1,Rs.NOM + " : " + numeriqueVersChaine((Rs.Nb / NbEnr)*100,"10,2fs") + " % soit " + Rs.NB + "Producteur(s)")
Fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3494&post_id=14766