Global
bColonne1 est un booleen = vrai
bColonne2 est un booleen = vrai
bColonne3 est un booleen = vrai
bColonne4 est un booleen = vrai
PROCEDURE NomProcedure()
LOCAL
Nomchamp est une chaƮne
SELON _EVE.wParam // No de la colonne
CAS 1
Nomchamp = "COLONNE1"
SI bDatetrans ALORS Nomchamp = "-COLONNE1" ; bColonne1 = Faux SINON bColonne1 = Vrai
CAS 2
Nomchamp = "COLONNE2"
SI bColonne2 ALORS Nomchamp = "-COLONNE2" ; bColonne2 = Faux SINON bColonne2 = Vrai
CAS 3
Nomchamp = "COLONNE3"
SI bColonne3 ALORS Nomchamp = "-COLONNE3" ; bColonne3 = Faux SINON bColonne3 = Vrai
CAS 4
Nomchamp = "COLONNE4"
SI bColonne4 ALORS Nomchamp = "-COLONNE4" ; bColonne4 = Faux SINON bColonne4 = Vrai
FIN
TableTrie(Table,Nomchamp) // Trie selon le booleen
ProcCalculCumul()
RENVOYER 0 // Kill le message windows
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=4453&post_id=18436