Aide sur remplissage d'une combobox

[timo.net]

Bonjour,

J'ai deux combobox_filiere la 1er contient Filiere avec cette requette dans load de page

Code :

1
2
3
4
5
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r = (From i In dc.FILIERE_SERIE _
                Select i.FILIERE.FiliereNom).Distinct
        ComboBox_filiere.DataSource = r
end sub

je voudrais remplaire la 2eme combobox avec :
chaque filiere contient plusieur serires
voila le deuxsieme code je les mis dans selectindexchanger combobox_filiere

Code :

1
2
3
4
5
6
7
    Private Sub ComboBox_filiere_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_filiere.SelectedIndexChanged
    Dim r = From fs In dc.FILIERE_SERIE _
                    Where fs.FiliereId = CInt(ComboBox_filiere.Text) _
                    Select fs.SERIE.SerieNom
 
            ComboBox_niveaux.DataSource = r
end sub

une aide