Discussion :

[D4rkTiger]

Bonjour,

Voilà j'ai en fait un WindowsForm qui contient plusieurs ComboBox. Ces combobox sont destinés à faire des choix d'écoles en fonction de concours.

Donc lorsque qu'un utilisateur renseigne le même concours deux fois à suivre, il ne doit pas pouvoir sélectionner dans les deux la même école.

Il faudrait donc que lorsqu'il choisit une école dans une Combobox, celle ci se copie dans la deuxième combobox en enlevant l'école sélectionnée.

J'ai déjà essayé ça :

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
Dim Elements() As Object
Private Sub cboPremConcours2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPremConcours2.SelectedIndexChanged

        If Me.cboPremConcours2.SelectedItem <> Me.cboPremConcours1.SelectedItem Then

            Dim Ecoles As New OleDbCommand("SELECT * FROM ecole WHERE CodeConcours='" + Me.cboPremConcours2.SelectedItem + "'", OConnexion)
            Dim dt As OleDbDataReader

            Try
                OConnexion.Open()
                Me.cboPremEcolesConcours2.Items.Clear()
                dt = Ecoles.ExecuteReader
                'Remplissage de la Liste Déroulante selon le Concours Choisi
                While dt.Read
                    Me.cboPremEcolesConcours2.Items.Add(dt.Item(0))
                End While
            Catch ex As Exception
                MessageBox.Show("Erreur dans la Récupération des Données", "Echec Récupération", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Me.cboPremEcolesConcours2.Text = "- Pas de Données Récupérées -"
            End Try
            OConnexion.Close()

        Else

            Me.cboPremEcolesConcours1.Items.CopyTo(Elements, 0)
            Me.cboPremEcolesConcours2.Items.AddRange(Elements)

        End If

        'Remise en Etat de la Sélection de l'Ecole
        Me.cboPremEcolesConcours2.Text = "- Ecoles du Concours -"

        'Activation de la liste des Ecoles
        Me.cboPremEcolesConcours2.Enabled = True
End Sub

Mais il me dit que paramètre item ne peut pas être null alors que je n'ai pas de paramètre item. Donc si vous avez une solution ce serait cool

[zeavan]

Code :

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

1
2
3
4
5
Dim Elements() As Object
                While dt.Read
                    Me.cboPremEcolesConcours2.Items.Add(dt.Item(0))
               End While

Mais il me dit que paramètre item ne peut pas être null alors que je n'ai pas de paramètre item. Donc si vous avez une solution ce serait cool

sinon ton probleme viens du Items.Add(dt.Item(0))
rajoute une condition !=null