Il faut déclarer un évènement sur la table voulue avec le n° de message 1529.
Evenement('Nom de la procédure','Nom de la table', 1529)
Ensuite créer la procédure qui réagit à cet évènement.
Dans cet exemple, on va trier en ordre ascendant sur la colonne _COL2 et déscendant sur _COL1
Procédure 'Nom de la procedure' (pMessage est un entier , wParam est un entier, lParam est un entier )
//wParam contient le numéro de la colonne cliquée
SI .wParam = ALORS
// cette affectation permet de ne pas activer le tri par défaut (elle intercepte l'évènement en retournant 0)
_eve.Retour = 0
TableTri("_COL2"+TAB+"-_COL1")
FIN