Salut
je voudrais ajouter un comboBox qui contient une liste des noms du departement pour afficher dans la dataGridView la liste des personnel qui travail au meme departement.
voici le code que j'ai ecris:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Public Class FormConsultation
    Dim dc As New DataClasses1DataContext
    Dim i As Integer
    Private Sub FormConsultation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO*: cette ligne de code charge les données dans la table 'PointeusesDataSet.VueBdj'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.VueBdjTableAdapter.Fill(Me.PointeusesDataSet.VueBdj)
        DataGridView1.DataSource = VueBdjBindingSource
        PictureBox1.Image = Image.FromFile("C:\Users\dell\Pictures\photos\" & MatriculeTextBox.Text & ".jpg")
 
        Dim dep = (From d In dc.Departement _
                Where d.NomDepartement = ComboBoxDepartement.Text).FirstOrDefault
        ComboBoxDepartement.Items.AddRange()
 
    End Sub
 
    Private Sub CmdPremier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPremier.Click
        VueBdjBindingSource.MoveFirst()
        PictureBox1.Image = Image.FromFile("C:\Users\dell\Pictures\photos\" & MatriculeTextBox.Text & ".jpg")
    End Sub
 
    Private Sub CmdPrecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPrecedent.Click
        VueBdjBindingSource.MovePrevious()
        PictureBox1.Image = Image.FromFile("C:\Users\dell\Pictures\photos\" & MatriculeTextBox.Text & ".jpg")
    End Sub
 
    Private Sub CmdSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSuivant.Click
        VueBdjBindingSource.MoveNext()
        PictureBox1.Image = Image.FromFile("C:\Users\dell\Pictures\photos\" & MatriculeTextBox.Text & ".jpg")
    End Sub
 
    Private Sub CmdDernier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDernier.Click
        VueBdjBindingSource.MoveLast()
        PictureBox1.Image = Image.FromFile("C:\Users\dell\Pictures\photos\" & MatriculeTextBox.Text & ".jpg")
    End Sub
 
    Private Sub CmdQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuitter.Click
        Me.Close()
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If Not (PictureBox1.Image Is Nothing) Then
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Nothing
        End If
    End Sub
 
    Private Sub ComboBoxDepartement_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxDepartement.Click
 
    End Sub
 
    Private Sub ComboBoxDepartement_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxDepartement.SelectedIndexChanged
        Dim cl = (From c In dc.Departement _
                Where c.NomDepartement = ComboBoxDepartement.Text).FirstOrDefault
 
        'If Not cl Is Nothing Then
        '    MatriculeTextBox.Text = cl.Matricule
        '    NomTextBox.Text = cl.Personnel.Nom
        '    PrenomTextBox.Text = cl.Personnel.Prenom
        '    NPArTextBox.Text = cl.NPAr
        '    NomFonctionTextBox.Text = cl.NomFonction
        '    NomDepartementTextBox.Text = cl.NomDepartement
        'End If
    End Sub
 
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
 
    End Sub
 
    Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
        Try
            Dim consult = From c In dc.Bdj _
                    Where c.N_Bdj = DataGridView1.CurrentRow.Cells(0).Value.ToString _
                    Select c
 
            MatriculeTextBox.Text = consult.First.Matricule
            NomTextBox.Text = consult.First.ToString
            PrenomTextBox.Text = consult.First.ToString
            NPArTextBox.Text = consult.First.NPAr
            NomFonctionTextBox.Text = consult.First.NomFonction
            NomDepartementTextBox.Text = consult.First.NomDepartement
            PictureBox1.Image = Image.FromFile("C:\Users\dell\Pictures\photos\" & MatriculeTextBox.Text & ".jpg")
        Catch ex As Exception
            MsgBox("Pas de Personnel")
        End Try
        i = DataGridView1.CurrentRow.Index
    End Sub
 
    Private Sub CmdAfficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAfficher.Click
        Dim consult = From c In dc.Bdj _
                    Where c.N_Bdj = DataGridView1.CurrentRow.Cells(0).Value.ToString _
                    Select c
 
    End Sub
End Class
merci de m'aider