combo box

Question

Bonjour,

Encore une petite question:

je remplie un combo box comme suit :

Set enregistrement.ActiveConnection = Base_film
    enregistrement.Open "SELECT * FROM tbl_genre"
    Do While Not enregistrement.EOF
        cbx_genre.AddItem enregistrement("genre")
        cbx_genre.ItemData(cbx_genre.NewIndex) = enregistrement("N°")
        enregistrement.MoveNext
    Loop

Et je voudrais dans une autre fonction que l'index de cbx_genre soit celui où l'itemdata = enregistrement.genre

j'arrive pô... help

phoenix91720 · Answer

J'ai trouvé une solution, mais je la trouve trop longue...

cbx_genre.ListIndex = 0
While cbx_genre.ItemData(cbx_genre.ListIndex) <> enregistrement("genre")
    cbx_genre.ListIndex = cbx_genre.ListIndex + 1
Wend

Si quelqu'un a plus court, je suis preneur...

Merci d'avance

Combo box

1 réponse

Discussions similaires