valeur dans un combobox Résolu/Fermé

Question

Bonjour,

je programme actuellemnt sur vb6 alors qu'habituellement je suis sur visual studio bref, je rempli mon combox grace a une requete j'affiche dans le combo le nom des commune et je voudrais stocker le numéro des communes pour m'en reservir plus tard, en visual studio je le fai avec une propriété .tag et un arraylist mais en vb6 cela ne amrche pas!

si quelqu'un peu m'aider je le remercie d'avance

Damien

lermite222 · Answer

Bonjour,
Si la propriété Sort du combo (mettre par ordre alpha) est à False, en mettant un tableau annexe ?

A+

filouze71 · Answer

bonjour,

je suis désolé mais je n'ai pas compris :s

lermite222 · Answer

Quand tu rempli le combo par Add.... mettre dans une tableaux le "Field" Code postal (ou N° de la commune !)
Quand tu clic sur le combo, reprendre le code dans le tableau avec comme index le ListIndex du Combo
dim Num as long
dim TB() 
ComboBox.add..... ta requète
redim Preserve TB(Num)
TB(Num) = ta requète Codecommune
Num = Num + 1

Quand un sélection est faite sur le comboBox
CodeCommune = TB(ComboBox.listindex)
A+

filouze71 · Answer

d'accord mais sachant que j'ai une boucle cela ne change rien?

Dim rec2 As ADODB.Recordset
Set rec2 = New ADODB.Recordset
rec2.Open "select distinct * from ville order by ville_nom", conn, adOpenDynamic, adLockOptimistic

Do While rec2.EOF = False
                num_commune = rec2.Fields("ville_num")
                cbocommune.AddItem (rec2.Fields("ville_nom"))
                cbocommune.Tag = num_commune
                rec2.MoveNext
            Loop

mais comme vous pouvez le constater mon .tag ne stocke pas les valeurs...

lermite222 · Answer

Bien sùr, sur VB6 il n'y a pas un "Tag" par ligne
mais ça change rien, tu peu mettre dans un tableau comme dit plus haut

dim Num as long
dim TB() 

Do While rec2.EOF = False 
cbocommune.AddItem (rec2.Fields("ville_nom")) 
redim Preserve TB(Num)
TB(Num)= rec2.Fields("ville_num") 
Num = Num + 1
rec2.MoveNext 
Loop 
et quand tu veux retrouver le num_commune 
num_commune = TB(cbocommune.listindex)

filouze71 · Answer

ok et bah je te remercie beaucoup, a bientot et bonne journée

filouze71 · Answer

ah si si si dsl ^^ le "bah" et une forme d'expression pour clore le sujet désolé si il ta paru mauvais car ce n'est pas le but du tout j'aurai du dire "et bien merci" c'est plus compréhensible

Valeur dans un combobox

7 réponses

Discussions similaires