Discussion :

[bechetbrice]

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 :

Code :

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

1
2
3
4
 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 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 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.

[olive7140]

Bonjour

ne pas oublier le handles combobox1.select...
mais essaies sur SelectedIndex

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        'efface les données de la combo
        ComboBox2.Items.Clear()
 
 
        Select Case ComboBox1.SelectedIndex
            Case 0  'si choix "LIBELLE 1"
 
                ComboBox2.Items.Add("LIBELLE A")
                ComboBox2.Items.Add("LIBELLE B")
                ComboBox2.Items.Add("LIBELLE C")
 
            Case 1 'si choix "LIBELLE 2"
                ComboBox2.Items.Add("LIBELLE D")
                ComboBox2.Items.Add("LIBELLE E")
                ComboBox2.Items.Add("LIBELLE F")
 
        End Select
 
    End Sub
 
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        'si le combo est vide efface les données combobox2
        If String.IsNullOrEmpty(ComboBox1.Text) Then
               ComboBox2.Items.Clear()
        End If
    End Sub

[bechetbrice]

Merci Olive. Belle réactivité

J'ai trouvé entre temps une solution (ça se joue a 2 minutes

La voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
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