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 |
