Combobox lié à la sélection de la précédente

**Skice** · 24/08/2011, 09h48

Bonjour,

Je me tourne vers vous car aucune des méthodes que j'effectue ne marche et j'ai pas envie de tirer les derniers cheveux qui me reste ^^ :p .Tout d'abord, je vous explique mon problème :

En fait, j'ai deux combobox dont chacune contient différentes informations. Pour la première tout va bien, elle affiche ce que je souhaite. La seconde combobox elle doit contenir des informations qui contient un mot sélectionné dans la première. Le problème est que je vais simplement faire un refresh() de la seconde mais à chaque fois que je change la sélection dans la première. Les valeurs de la seconde se cumule.

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
30
31
32
33
34
35
36
37
  Private Sub SalleP_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles SalleP.DropDownClosed
        'On effectue un select dans la table MachineP pour récupère les différentes options
        Try
            connexion.ConnectionString = "Data Source=C:\bddplg.sdf;Persist Security Info=False;"
            connexion.Open()
            Dim reqP As SqlCeCommand = New SqlCeCommand("Select nomP from MachineP Order By nomP ASC", connexion)
            Dim data As New DataTable
            Dim adapt As New SqlCeDataAdapter
            adapt.SelectCommand = reqP
            adapt.Fill(data)
            Dim carTrim As Char() = ("-")
            Dim salle As String()
            ListMachineP.Items.Clear()
            If (SalleP.Focus.Equals(True)) Then
                SalleP.Items.Clear()
            End If
            For i As Integer = 0 To data.Rows.Count - 1
                Dim sap As String = data.Rows(i).Item("nomP")
                Dim debut As String = NomMachine.Text
                If (sap.Contains(debut)) Then
                    sap = Regex.Replace(sap, "[a-zA-Z]", "")
                    salle = sap.Split(carTrim)
                    If (Not SalleP.Items.Contains(salle(0).ToString)) Then
                        SalleP.Items.Add(salle(0).ToString)
                    End If
                    If (Not ListMachineP.Items.Contains(salle(1).ToString)) Then
                        ListMachineP.Items.Add(salle(1).ToString)
                    End If
                End If
            Next
            connexion.Close()
        Catch ex As Exception
            MsgBox(ex)
        End Try
        NomMachine.Clear()
        NomMachine.AppendText(Nom + SalleP.SelectionBoxItem.ToString)
    End Sub

**Arofu** · 24/08/2011, 10h17

Bonjour,
J'ai pas très bien compris ce que tu souhaite avoir dans la deuxieme combobox. Tu veux le mot de passe sélectionné dans la première plus d'autres infos que tu y met ou simplement le mot de passe ?

**Skice** · 24/08/2011, 10h43

En fait, il faut savoir que je décompose plusieurs nom de salle pour que l'utilisateur puisse le reconstituer à sa guise (ex : PGMI201). Si je suis cet exemple, ma première combobox va contenir PGMI et ma seconde devrai contenir donc 201. Le problème c'est que PGMI va être le début pour d'autres salles (pour ça pas de souci un découpage et hop c'est ok j'ai bien les salles qui correspondent). Cependant, j'ai aussi d'autres salle tel que (PGIAE113 etc ...) Donc en fait le truc c'est que si je sélectionne dans ma première combobox PGIAE alors les valeurs de la seconde combobox doivent avoir pour début PGIAE. Le problème c'est que les valeurs de PGMI reste et quoique je fasse rien ne se passe.

Voilà en espérant que j'ai été plus clair avec cet exemple ^^