PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Combo Table Par Requête
Combo Table Par Requête
Iniciado por THINK, 22,nov. 2018 23:29 - 1 respuesta
Miembro registrado
13 mensajes
Publicado el 22,noviembre 2018 - 23:29
Salut
J'ai un combo Table lié a une requête qui a 5 paramétrés de Recherche (P1 ou P2 ou P3 ou P4 et P5).
je souhaite a chaque modification pouvoir exécuté ma Requête et Remplie mes Tables.

Recherche est une chaîne = Combo_Table..ValeurAffichée
SI Recherche..Taille > 5 ALORS
SI EstNumérique(Recherche) = Vrai ALORS
HExécuteRequête(REQ_COMBO,hRequêteDéfaut,Recherche,Recherche,Recherche,Null)
HLitPremier(REQ_COMBO)
SI HTrouve(REQ_COMBO) ALORS
TANTQUE PAS HEnDehors(REQ_COMBO)
TableAjoute(Combo_Table,REQ_COMBO.libelle+TAB+REQ_COMBO.prix+TAB+REQ_COMBO.Stock)
HLitSuivant(REQ_COMBO)
FIN
ComboOuvre(combo_table)
FIN
SINON
HExécuteRequête(REQ_COMBO,hRequêteDéfaut,Null,Null,Null,Recherche)
HLitPremier(REQ_COMBO)
SI HTrouve(REQ_COMBO) ALORS
TANTQUE PAS HEnDehors(REQ_COMBO)
TableAjoute(Combo_Table,REQ_COMBO.libelle+TAB+REQ_COMBO.prix+TAB+REQ_COMBO.Stock)
HLitSuivant(REQ_COMBO)
FIN
FIN
ComboOuvre(combo_table)
FIN


Mais rien

--
PS : I Love Windev
Publicado el 23,noviembre 2018 - 12:10
Bonjour,

Si je comprends bien, le champ COMBO_Table est une combobox. Et quand tu sélectionnes une valeur de cette combo, celle-ci se recharge avec le résultat de la requête ?

Une combo se remplit avec la fonction ListeAjoute et non TableAjoute.

Il me semble aussi que tu peux simplifier ce code, puisque le traitement est identique, seule la requete a des paramètres différents selon que la valeur sélectionnée est numérique ou pas.