Re: Fenêtre de recherche
Posté par Anonyme le 22/1/2004 14:38:40
pas de boucle infinie, juste une erreur d'appel :
le parametre de la fct Hendehors, c'est le nom du fichier parcourru. Hors si j'en croi ton code, le fichier en question n'est pas "REQ_SELECT_CLIENT" mais "CLIENT".
et n'oublie surtout pas d'actualiser la table avec la fct TableAffiche() a la fin du code.
Ce qui donne :
le parametre de la fct Hendehors, c'est le nom du fichier parcourru. Hors si j'en croi ton code, le fichier en question n'est pas "REQ_SELECT_CLIENT" mais "CLIENT".
et n'oublie surtout pas d'actualiser la table avec la fct TableAffiche() a la fin du code.
Ce qui donne :
Cléparcours est une chaîne
Cléparcours=HFiltre(CLIENT,"NomClient="+"'Frm_RechCli.Zs_Client"+"'")
SI Cléparcours<>"" ALORS
HLitPremier(CLIENT, Cléparcours)
TANTQUE PAS HEnDehors(CLIENT)
TableAjouteLigne(Frm_RechCli.Tab_ListCLi,CLIENT.NomClient,...
CLIENT.PreClient,CLIENT.TypeClient)
HLitSuivant(CLIENT, Cléparcours)
FIN
FIN
//On affiche le nombre de résultatFrm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)
TableAffiche(Frm_RechCli.Tab_ListCLi)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=506&post_id=1785