[VB .NET] Copier les Items d'un ComboBox Vers un Autre

Version imprimable

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:

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 ;)

22/05/2006, 09h06
zeavan

pour passer des element d'une combobox, listbox ou tout autre composant ou tout simplement modifier tes donnees , il est conseille de changer ca a la source(pas la db mais intermediare):

dans ton cas:

1) je lis mes donnees de tb1 les store dans une dTable1 par example
2) je lis mes donnees de tb2 les store dans une dTable2 par example

ensuite tu fait:
myComboBox1.DataSource=dTable1 ;
myComboBox2.DataSource=dTable2 ;

puis

tu fais passer les element d'une table a une autre .
22/05/2006, 09h10
zeavan
Citation:
Envoyé par D4rkTiger

Code:

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
22/05/2006, 23h29
D4rkTiger
Citation:

Envoyé par zeavan

pour passer des element d'une combobox, listbox ou tout autre composant ou tout simplement modifier tes donnees , il est conseille de changer ca a la source(pas la db mais intermediare):

dans ton cas:

1) je lis mes donnees de tb1 les store dans une dTable1 par example
2) je lis mes donnees de tb2 les store dans une dTable2 par example

Cela voudrais dire que je devrais écrire ça :
Code:

1 2 3 4 5 6 7 8 i = 0 While dt.Read Me.cboPremEcolesConcours2.Items.Add(dt.Item(0)) dTable1(i) = dt.Item(0) i += 1 End While
Pour ensuite l'utiliser comme ceci :
Code:

1 2 Me.cboPremEcolesConcours2.DataSource = dTable1
Le Problème c'est que les ComboBox que j'utilise sont avec un nombre de lignes variables suivant le concours donc je ne connais pas la taille du tableau :roll:

En tout cas je vais essayé avec un nombre bidon et je reviendrai dire :)
Et merci pour votre aide

Citation:
Envoyé par D4rkTiger
Cela voudrais dire que je devrais écrire ça :
Code:

1 2 3 4 5 6 7 8 i = 0 While dt.Read Me.cboPremEcolesConcours2.Items.Add(dt.Item(0)) dTable1(i) = dt.Item(0) i += 1 End While
Pour ensuite l'utiliser comme ceci :
Code:

1 2 Me.cboPremEcolesConcours2.DataSource = dTable1
Le Problème c'est que les ComboBox que j'utilise sont avec un nombre de lignes variables suivant le concours donc je ne connais pas la taille du tableau :roll:

En tout cas je vais essayé avec un nombre bidon et je reviendrai dire :)
Et merci pour votre aide
non plutot ceci :
si tu veux utiliser un datareader
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 DataTable dt=new DataTable("monTableau"); dt.Columns.Add("maColonne"); while(monDataReader.read()) { DataRow dr= dt.NewRow(); dr["maColonne"]=monDataReader.iem(0); dt.Rows.Add(dr); } this.cboPremEcolesConcours2.DataSource=dt;
avec dataadpater plus lent mais plus court

Citation:

monDataAdapter.fill(maDataTable);

23/05/2006, 09h12
D4rkTiger

OPui j'ai vu que j'avais des complications ;) , Je vais donc essayé ta nouvelle solution.

Merci 8-)

J'ai essayé ta solution mais je ne sis pas arrivé à mes fin. Il y avait un début j'avais réussi à resynchroniser 3 des mes combobox. :D

Mais j'ai finalement trouvé une méthode. C'est de créer des OleDbParameter qui viennent compléter ma requête a chaque choix que j'effectue.

Donc voilà à quoi je suis arrivé :
Ma Requête:

Code:

1
2
Public Ecoles As New OleDb.OleDbCommand("SELECT sigle FROM ecole WHERE CodeConcours=?", OConnexion)

Mon Paramètre du Concours:

Code:

1
2
Public ParamConcours As New OleDb.OleDbParameter("Concours", OleDb.OleDbType.VarWChar)

La Fonction d'Enregistrement :

Code:

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
'Liste des Ecoles du Concours Selectionné
    Public Sub LstEcoles(ByVal Concours As String, ByRef ListeModif As ComboBox)
        Dim DataEcoles As OleDb.OleDbDataReader
        Try
            OConnexion.Open()

            If Ecoles.Parameters.Item("Concours").Value <> Concours Then
                Ici j'ajoute le premier paramètre à ma requête, c'est le Concours qui a été choisi. Il n'est modifié que s'il change.
                Ecoles.Parameters.Item("Concours").Value = Concours
            End If

            'Execution de la Commande
            DataEcoles = Ecoles.ExecuteReader()

            'Vidage des Listes
            ListeModif.Items.Clear()

            While DataEcoles.Read
                'Listes Déroulantes à Remplir
                ListeModif.Items.Add(DataEcoles.Item(0))
            End While
            DataEcoles.Close()
        Catch ex As Exception
            MessageBox.Show("Aucune Ecoles n'a pu être mis en relation avec le concours selectionné" & Chr(13) & "L'Administrateur va être prévenu de cette erreur", "Erreur Liste Ecoles", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ErreurLog(ex.ToString)
        Finally
            OConnexion.Close()
        End Try
    End Sub

Le Paramètre de l'Ecole Choisie :

Code:

1
2
3
4
'Modification de ligne de Commande
        Ecoles.CommandText &= " AND sigle <> ?"
        Ecoles.Parameters.AddWithValue("Ecole" & Ecoles.Parameters.Count.ToString, Me.cboLstPremEcoles.SelectedItem)

Ce qi fait que à chaque choix d'une ecole ma ligne de commande reçoit un complément d'infos sur ce qu'elle doit sélectionner et ceux pour n'importe quel Concours.

Voilà si vous avez des questions sur comment j'ai fait n'hésitez pas!