// dans le bouton une erreur d'execution de la requete abandonne le traitement
SI PAS HExécuteRequête(REQ_TROUVER_CLIENT) ALORS RETOUR
// vide la table
tablesupprimetout(Tab_ListCLi)
// Parcours du résultat de la requete.
HLitPremier(REQ_TROUVER_CLIENT)
TANTQUE PAS HEnDehors(REQ_TROUVER_CLIENT)
// Ajoute la ligne dans la table
tableajouteligne(Tab_ListCLi,...
REQ_TROUVER_CLIENT.NomClient,...
REQ_TROUVER_CLIENT.PrenomClient,...
REQ_TROUVER_CLIENT.TypeClient)
// résultat suivant
HLitsuivant(REQ_TROUVER_CLIENT)
FIN
// calcul du nombre de lignes
Lb_NbResult = TableOccurrence(Tab_ListCLi)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=506&post_id=1766