[VB6] combobox.itemvalue ?

Bonjour,

je débute en visual basic et j'ai un petit soucis avec l'utilisation des combobox en vb6.

au load de ma form, je remplie mon combobox :

Code:

---

1 2 3 4 5 6

sSql = "select responsableAction from action" oDb.SqlExec sSql, oRs Do Until oRs.EOF cbRespAction.AddItem (oRs.Fields(0)) oRs.MoveNext Loop

---

je fait ensuite une requête sur une autre table pour récupérer les informations d'une fiche

Code:

---

1 2	sSql = "select * from fiche where id_fiche = " & i oDb.SqlExec sSql, oRs

---

cette requête me renvoie un RecordSet contenant un champ remplie grace au même combobox que mon premier (cbRespAction).

Je cherche a ce qu'a l'affichage de la form, l'item présélectionner dans mon combobox soit le même que celui que m'a renvoyer ma requête. Ors je n'arrive pas a trouver comment lister un par un les éléments d'un combobox, pour les comparer un a un avec le champs de mon RecordSet ...

Ça doit ressembler a quelque chose comme ça (selon ma logique de débutant hein :p) .... mais 'combobox.item.value' n'existe apparemment pas :?

Code:

---

1 2 3 4 5 6

For i = 0 to cbRespAction.listCount If cbRespAction.item(i).value = oRs.Fields(9) Then cbRespaction.ListIndex = i End If Next i

---

Merci d'avance.
KilKennY

Bonjour,

D'abord dans ta boucle tu dois faire Liscount - 1
(car liscount te donnes le nombre d'items )
ensuite dans ton code
,remplace ta ligne

Code:

---

1 2	If cbRespAction.list(i) = oRs.Fields(9) Then

---

A+

bonjour,

- l'indice du contenu d'un combo box commence à 0 (i de 0 à ListCount -1) comme l'a mentionné par iclic
- une fois ta correspondance trouvée, sort de la boucle pour éviter de traiter la suite de la liste inutilement avec un Exit For

voici:

Code:

---

1 2 3 4 5 6

For i = 0 To cbRespaction.ListCount - 1 If cbRespaction.List(i) = oRs.Fields(9) Then cbRespaction.ListIndex = i Exit For End If Next i

---

j'utilise ce code pour des combo boxes ayant la propriété Style à 2 car la propriété Text est alors en lecture seule...

bonne continuation

Super ça fonctionne nickel :)

j'ignorai que les items d'un combobox étaient numérotés de 0 a listcount - 1 ...

et c'est surtout la propriété combobox.list(i) qui me faisait défaut.

Merci pour tout.

2 petites remarques :

- Si ton problème est résolu, merci de cliquer sur le bouton Résolu en bas de cette page.
- Les propriétés que tu ne connaissais pas pouvaient facilement être trouvée dans l'aide de VB, penses y pour la prochaine fois ;)