1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
dt.Columns.Add(New DataColumn("Colonne 1", GetType(String)))
dt.Columns.Add(New DataColumn("Colonne 2", GetType(String)))
dt.Columns.Add(New DataColumn("Colonne 3", GetType(String)))
dt.Columns.Add(New DataColumn("Colonne 4", GetType(String)))
dt.Columns.Add(New DataColumn("Colonne 5", GetType(String)))
dt.Columns.Add(New DataColumn("Colonne 6", GetType(String)))
dt.Columns.Add(New DataColumn("Colonne 7", GetType(String)))
Dim i As Integer = 1
For Each oNode As XmlNode In xNode
With DLLAccess
dt.Rows.Add(.getRecordsetField("lrs_var", i, 0), .getRecordsetField("lrs_var", i, 1), .getRecordsetField("lrs_var", i, 5), .getRecordsetField("lrs_var", i, 8), .getRecordsetField("lrs_var", i, 2), .getRecordsetField("lrs_var", i, 6), .getRecordsetField("lrs_var", i, 14))
i = i + 1
End With
Next
ds.Tables.Add(dt)
grvSoldes.AutoGenerateColumns = True
grvSoldes.DataSource = ds
grvSoldes.DataMember = "Table"
grvSoldes.DataBind() |