[RESOLU] 2 combobox et SelectedValueChanged [Résolu]

Signaler
Messages postés
2
Date d'inscription
dimanche 26 octobre 2014
Statut
Membre
Dernière intervention
26 octobre 2014
-
Messages postés
2
Date d'inscription
dimanche 26 octobre 2014
Statut
Membre
Dernière intervention
26 octobre 2014
-
Bonjour;

Débutant, j'en profite, avant d'aller plus loin sur mes difficultés, pour remercier les membres à la fois des réponses qu'ils ont pu apporter à d'autres débutants (elles m'ont aidé) et par des solutions et conseils utiles qui me permettront d'avancer dans mon projet.

Je précise avoir pas mal recherche sur les forums et internet sans comprendre pour autant ce qui ne fonctionne pas.

Je construit ce projet sous visual studio 2010 avec comme bdd access.

L'idée de ce form est d'afficher dans une datagridview le résultat issue de ma bdd selon 2 combobox.

J'ai chargé via ce code les valeurs de ma première combobox :

Private Sub ComboBox1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("LIBELLE 1")
ComboBox1.Items.Add("LIBELLE 2")
End Sub

Les valeurs LIBELLE 1, LIBELLE 2 se chargent bien dans ma 1ère combobox.

Le code de la 2nde combobox est le suivant :

Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs)
If ComboBox1.SelectedValue = "LIBELLE 1" Then
ComboBox2.Items.Add("LIBELLE A")
ComboBox2.Items.Add("LIBELLE B")
ComboBox2.Items.Add("LIBELLE C")
ElseIf ComboBox1.SelectedValue = "LIBELLE 2" Then
ComboBox2.Items.Add("LIBELLE D")
ComboBox2.Items.Add("LIBELLE E")
ComboBox2.Items.Add("LIBELLE F")
End If
End Sub

En debug, les données de la 1ière combobox sont bien visibles mais la 2nd combobox reste vierge.

J'ai le sentiment que le problème se situe au niveau de SelectedValueChanged et/ou de SelectedValue ?

Merci par avance pour votre aide.

1 réponse

Messages postés
2
Date d'inscription
dimanche 26 octobre 2014
Statut
Membre
Dernière intervention
26 octobre 2014

In fine, j'ai trouvé le solution aussi je la partage :)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("LIBELLE 1")
ComboBox1.Items.Add("LIBELLE 2")
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem= "LIBELLE 1" Then
ComboBox2.Items.Add("LIBELLE A")
ComboBox2.Items.Add("LIBELLE B")
ComboBox2.Items.Add("LIBELLE C")
ElseIf ComboBox1.SelectedItem = "LIBELLE 2" Then
ComboBox2.Items.Add("LIBELLE D")
ComboBox2.Items.Add("LIBELLE E")
ComboBox2.Items.Add("LIBELLE F")
End If
End Sub