PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → combo dans une table
combo dans une table
Iniciado por franck.sitbon, 03,nov. 2004 16:34 - 2 respuestas
Publicado el 03,noviembre 2004 - 16:34
je souhaiterais savoir comment affecter une valeur dans une combo d'une table mémoire...
Publicado el 03,noviembre 2004 - 18:23
Dans cet exemple tu as :
-Une combo "CboSupport1" dans une table memoire
-Une varible globale de type NUMERIQUE nommée "WidCode"
-Un fichier "Support" dont les enregistrements seront affectés dans une combo d'une table mémoire
-Un fichier de relation "CombSupport" à parcourir selon un critère de recherche.
-I est un compteur à la fois des enregistrements trouvés et des lignes de la table
memoire contenant la combo.

I=0
HLitRecherchePremier(CombSupport,code_Comb,WCode_Comb)
TANTQUE HTrouve(CombSupport)
I++
HLitRecherche(Support,code,CombSupport.code_support)
SI HTrouve(Support) ALORS
widcode=ListeCherche(CboSupport1,Complète(Support.libelle,50)+TAB+Support.code)
SI widcode<>-1 ALORS
//Affectation des enregistrements dans la combo table memoire à la ligne "I" et
colonne "1"
TABLE[I,1]=CombSupport.code_support
//Affectation des enregistrements dans la combo table memoire à la même
ligne "I" et colonne "2"
TABLE[I,2]=CombSupport.code_support
FIN
FIN
HLitSuivant(CombSupport,code_Comb)
FIN

NB: Ceci est un exemple qui j'espère pourra t'aider

Cordialement !
Publicado el 03,noviembre 2004 - 18:39
Salut,

Le code suivant permet de remplir la combo, c'est bien ce que tu veux faire ?

POUR i = 1 A 4
ListeAjoute(Table1.ColonneCombo, "Val " + i)
FIN

Ciao
Pat Biker
http://wdgotcha.atspace.com