Discussion :

[nico10gbb]

Bonjour,

Je remplis ma ComboBox comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11

strSQL = "SELECT LD.Libelle,LD.Identifiant FROM Lib_Divers LD, Lib_DiversType LDT WHERE LD.Id_Type = LDT.Id_Type AND LDT.Libelle = 'Energie'"
Dim maComm3 AsNew SqlClient.SqlCommand(strSQL, My.Forms.Form1.maConn)
maComm2.CommandType = CommandType.Text
Dim dtaRead3 As SqlClient.SqlDataReader = maComm3.ExecuteReader()
While dtaRead3.Read
Me.ComboEnergie.Items.Add(New itemComboBox(dtaRead3.GetSqlString(0), dtaRead3.GetSqlInt32(1)))
EndWhile
dtaRead3.Close()

Je voudrais afficher une valeur dans mon ComboBox parmi celles rentrés avec le code ci dessus.
Je recupere un identifiant qui correspond à mon deuxieme parametre d'une de mes itemComboBox qui remplissent ma ComboBox.
J'ai donc l'identifiant de l'item à afficher mais je ne sais pas comment faire pour que la ComboBox affiche cet item.
La méthode SelectedIndex ne marche pas dans mon cas. J'ai essayé de me pencher sur la methode SelectedItem sans succes.

Je fais donc appel à vous pour m'aider !

J'espere avoir été clair et merci d'avance.

[NicolasG]

Il faut parcourir la collection Combobox.Items pour rechercher l'objet qui correspond à l'id.
Ensuite le sélectionner en affectant ComboBox.SelectedIndex ou ComboBox.SelectedItem

[nico10gbb]

Merci de ta reponse

Le truc c'est que je ne sais pas du tout comment parcourir la collection Items et trouver celui correspondant à mon identifiant.
Si vous aviez un bout de code ou un lien je suis preneur.
C'est la premiere fois que j'utilise des Items autre qu'un simple libelle dans une ComboBox

[NicolasG]

On fait simplement une boucle for ou foreach pour tester tous les objets de ComboBox.Items en comparant leur valeur avec l'identifiant voulu.

Je ne connais pas la syntaxe VB mais c'est classique, regardes un exemple de foreach.

[nico10gbb]

Code :

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

1
2
3
4
5
6
7
8
9
While dtaRead4.Read
ForEach element InMe.ComboEnergie.Items
Dim idElement AsInteger = element.getId
If (idElement = dtaRead4.GetSqlInt32(0)) Then
Me.ComboEnergie.SelectedItem = element
EndIf
Next
EndWhile

Voici le code qui m'a permis de faire ce que je voulais

Merci de ton aide !