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