Bonjour a tous,

Il se trouve que j'ai codé une fonction qui me permet de remplir un DataGridView, seulement celle ci ne fonctionne pas et je tourne pas mal en rond depuis un moment, et j'ai besoin d'avancer...

Je vous laisse le code de mon interface si vous voyez une erreur hésitez pas.
Merci !

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
95
96
97
98
99
100
101
 
Public Class Form3
 
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MakeTable()
    End Sub
 
    Private Sub MakeTable()
 
        '===============================================================
        'Creation de la nouvelle table qu'on appelera ici MainTable
        Dim myDataTable As DataTable = New DataTable("MainTable")
 
        'creation du dataset dans lequel on va mettre nos donnees
        Dim myDataSet As DataSet
 
        'Objets utilises pour les creer les colonnes et les lignes de notre table
        Dim myDataColumn As DataColumn
        Dim myDataRow As DataRow
 
        '===============================================================
        'Dans cette table on y met 1 colonnes
        '1)
        myDataColumn = New DataColumn
        myDataColumn.DataType = System.Type.GetType("System.String")
        myDataColumn.ColumnName = "NomInstallation"
        myDataColumn.ReadOnly = True
        myDataColumn.Unique = True
        myDataTable.Columns.Add(myDataColumn) 'ajout de la colonne a la table
 
        '===============================================================
        'On dit quelle colonne est la clee
        Dim PrimaryKeyColumns(0) As DataColumn
        PrimaryKeyColumns(0) = myDataTable.Columns("NomInstallation")
        myDataTable.PrimaryKey = PrimaryKeyColumns
 
        '===============================================================
        'Il faut maintenant remplir notre table avec des valeurs
        myDataSet = New DataSet
        myDataSet.Tables.Add(myDataTable) 'ajout de la table au dataset
 
        '===============================================================
        'On ajoute 5 lignes dans notre table
        Dim i As Integer
        For i = 0 To 4
            myDataRow = myDataTable.NewRow()
            myDataRow("NomInstallation") = "Installation" & i
        Next i
 
        '===============================================================
        'On envoit le dataset dans le datagrid
        'DataGrid1.SetDataBinding(myDataSet, "MainTable")
 
        Me.DataGridView1.AutoGenerateColumns = False
        DataGridView1.DataSource = myDataSet
        DataGridView1.DataMember = myDataSet.Tables(0).TableName("NomInstallation")
 
 
 
        'End Sub
 
 
        '////////////////////////////////////////////////////////////////////////////////////////////////////////
        '///////////////////////////////////////////////////////////////////////////////////////////////////////
        '//////////////////////////////////////////////////////////////////////////////////////////////////////
 
        'Private Sub MakeDataView()
        'Affichage sur le DataGridView
        '
        Dim TextBoxColumn1 As New DataGridViewTextBoxColumn
        With TextBoxColumn1
            .HeaderText = "Installation"
            .Width = 100
            .DataPropertyName = "NomInstallation"
        End With
 
        Dim ComboBoxColumn1 As New DataGridViewComboBoxColumn
        With ComboBoxColumn1
            .HeaderText = "Date"
            .DataPropertyName = "Date"
        End With
 
        Dim CheckBoxColumn2 As New DataGridViewCheckBoxColumn
        With CheckBoxColumn2
            .HeaderText = "Hebdo Suivi"
            .Width = 50
        End With
 
 
        DataGridView1.Columns.Add(TextBoxColumn1)
        DataGridView1.Columns.Add(ComboBoxColumn1)
        DataGridView1.Columns.Add(CheckBoxColumn2)
 
    End Sub
 
 
 
 
 
 
End Class