Discussion :

[Poupou61]

salut,

donc j'ai un problème pour charger une combobox à partir du résultat d'une combobox précédente :

donc en gros j'ai une combobox qui s'appelle ComboBoxAgInt que je charge depuis un dataset bon jusque la tout va bien.

mais après avec le résultat de cette combobox je dois pouvoir charger une autre combobox qui s'appelle ComboBx_Interimaire et c'est la que le problème arrive.

je crée l'évènement Private Sub ComboBoxAgInt_SelectedValueChanged et je met mon code comme sa vous vous ferez une idée :

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
Private Sub ComboBoxAgInt_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxAgInt.SelectedValueChanged
 
                    Dim entreprise As New Mylist
            entreprise = Me.ComboBoxAgInt.SelectedItem
 
 
            Me._taAgenceInt.FillBy_Age_id(DataSetOrdreDeMission.Agence_Interimaire, entreprise.ItemData)
            Dim coefDel As DataTable = _taAgenceInt.GetDataBy_Age_id(entreprise.ItemData)
 
            TxtBxCoefDel.Text = coefDel.Rows(0)("AGE_COEF_DELEGATION")
            TxtBxCoefdeGest.Text = coefDel.Rows(0)("AGE_COEF_GESTION")
 
            Me._taPersonne1.FillBy_interimaire(DataSetOrdreDeMission.Personne1, entreprise.ItemData)
            Dim Donneespersonne As DataTable = _taPersonne1.GetDataBy_interimaire(entreprise.ItemData)
            Me.ComboBx_Interimaire.Items.Add(New Mylist("", 0))
            For Each Personne As DataRow In Donneespersonne.Rows
                Dim Itemlist As New Mylist
                Itemlist.Name = Personne("pers_nom")
                Itemlist.ItemData = Personne("pers_id")
                Me.ComboBoxAgInt.Items.Add(Itemlist)
            Next        
 
    End Sub

[Jean-Michel Ormes]

Salut,

Tu dois remplir ta 2eme combo au moment où tu charges la 1ere, ou au moment où tu choisis une valeur dans la 1ere ?

[Poupou61]

je souhaiterais que ma combobox se remplisse au moment ou je choisis une valeur dans la première

[Jean-Michel Ormes]

Code :

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

1
2
3
4
5
6
7
For Each Personne As DataRow In Donneespersonne.Rows
                Dim Itemlist As New Mylist
                Itemlist.Name = Personne("pers_nom")
                Itemlist.ItemData = Personne("pers_id")
                Me.ComboBx_Interimaire.Items.Add(Itemlist)
            Next

ça devrait pas être ça plutôt ? Par ailleurs, tu devrais plutôt travailler sur le OnSelectedIndexChanged

[Poupou61]

c'est pas plutôt juste SelectedIndexChanged l'évènement ? parce que OnSelectedIndexChanged j'ai pas. et donc j'ai essayé avec SelectedIndexChanged et sa ne marche pas.

Mais enfaite dans la base de données les agences intérimaires n'ont pas forcement des intérimaires. Donc j'ai fait une requète sql dans la base de donnée pour avoir le libelle des agences qui en avaient. Et c'est la que je comprend pas, enfaite quand je sélectionne une agence qui a des intérimaires dans la combobox. Et si je met un point d'arrêt sur la ligne :

Code :

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

Private Sub ComboBoxAgInt_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxAgInt.SelectedValueChanged

ou avec SelectedIndexChanged
et que je vais pas à pas après avec le debugger, sa s'arrête sur la ligne :

Code :

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

Dim Donneespersonne As DataTable = _taPersonne1.GetDataBy_interimaire(entreprise.ItemData)

alors que si je sélectionne une agence sans intérimaire tout marche normalement (enfin je crois)