Valeur dans un combobox
Résolu
filouze71
-
filouze71 -
filouze71 -
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
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
A voir également:
- Valeur dans un combobox
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
- Valeur relative et absolue ✓ - Forum Webmastering
- Formule excel si contient texte alors valeur ✓ - Forum Excel
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum MacOS
7 réponses
Bonjour,
Si la propriété Sort du combo (mettre par ordre alpha) est à False, en mettant un tableau annexe ?
A+
Si la propriété Sort du combo (mettre par ordre alpha) est à False, en mettant un tableau annexe ?
A+
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
Quand un sélection est faite sur le comboBox
CodeCommune = TB(ComboBox.listindex)
A+
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+
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...
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...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
et quand tu veux retrouver le num_commune
num_commune = TB(cbocommune.listindex)
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)