Discussion :

[KilKennY]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iclic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[littledoudou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[KilKennY]

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.

[OhMonBato]

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