1 pièce(s) jointe(s)
Ajouter deux colonnes aux DataGridView
Bonjour tout le monde
Svp j'ai vraiment besoin d'aide pour resoudre ce probleme
Dans ma Form1 .. j'ai ComboBox1 remplit par cette liste de 1 a 12 ( 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 -12) et ComboBox2 remplit par des annees ( 2022 - 2023 - 2024 - 2025 - 2026 - 2027 - 2028 - 2029 - 2030 ) et DataGridView1 tout vide .
Je choisis le mois par ComboBox1 et ensuite lorsque je choisis l'annee par ComboBox 2 .. les jours du mois choisit seront affiches dans une ligne du DataGridView1 .. comme l'indique cette image
Pièce jointe 630904
Je veux ajouter deux colonnes .. une colonne pour ( code employe ) et une colonne pour ( nom employe ) au debit du DataGridView1 .. j'ai trop essaye mais sans resultat
Voici tout le code dans ma Form1
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
| Public Class Form1
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim MyDay() As String = {"Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"}
If ComboBox1.Text <> Nothing And ComboBox2.Text <> Nothing Then
Dim D1 As Date = DateValue("1/" & ComboBox1.Text & "/" & ComboBox2.Text)
Dim D2 As Date
If Val(ComboBox1.Text) < 12 Then
D2 = DateValue("1/" & Val(ComboBox1.Text) + 1 & "/" & ComboBox2.Text)
Else
D2 = DateValue("1/" & "1" & "/" & Val(ComboBox2.Text) + 1)
End If
Dim J As Long = DateDiff(DateInterval.Day, D1, D2)
If DataGridView1.Columns.Count > 0 Then
DataGridView1.Columns.Clear()
End If
Dim mRow(J) As String
For i = 1 To J
D2 = DateValue(i & "/" & ComboBox1.Text & "/" & ComboBox2.Text)
DataGridView1.Columns.Add("Col3", MyDay(Val(D2.DayOfWeek)))
mRow(i - 1) = i & "/" & ComboBox1.Text
Next
DataGridView1.Rows.Add(mRow)
Else
MsgBox("Veuillez sélectionner le mois ou l'année .. svp")
End If
End Sub
End Class |
Merci beaucoup d'avance pour l'aide
Cordialement
MADA
