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
| Public Sub PutDGW(ByRef dGW As DataGridView, ByRef DT As DataTable)
dGW.DataSource = Nothing
dGW.Rows.Clear()
dGW.Columns.Clear()
Dim Ligne As DataRow
Dim Col As DataColumn
For Each Col In DT.Columns
dGW.Columns.Add(Col.ColumnName, Col.Caption)
Next Col
Dim i As Integer = 0
If (DT.Rows.Count > 0) Then dGW.Rows.Add(DT.Rows.Count) Else Exit Sub
If (dGW.Columns.Count > 0) Then
For Each Ligne In DT.Rows
For Each Col In DT.Columns
If (Ligne.RowState <> DataRowState.Deleted) Then
dGW.Rows(i).Cells(Col.ColumnName).Value = Ligne.Item(Col.ColumnName)
End If
Next Col
i = i + 1
Next
End If
End Sub |
Partager