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
|
Private Sub ToGridView (DsArticles As DataSet)
Dim DtArticles As New DataTable("TblArticles")
Dim ImageProduct As DataColumn = New DataColumn("ImageProduct")
ImageProduct.DataType = System.Type.GetType("System.String")
DtArticles.Columns.Add(ImageProduct)
Dim IdProduct As DataColumn = New DataColumn("IdProduct")
IdProduct.DataType = System.Type.GetType("System.String")
DtArticles.Columns.Add(IdProduct)
Dim Modele As DataColumn = New DataColumn("Modele")
Modele.DataType = System.Type.GetType("System.String")
DtArticles.Columns.Add(Modele)
DsArticles = alimenter par une requête SQL
For Each DrArticle As DataRow In DsArticles.Tables("Articles").Rows
DtArticles.Rows.Add("c:\testimages\noimage.png", DrArticle("S_ID"), DrArticle("S_MODELE"))
Next
GridView1.DataSource = DtArticles
GridView1.DataBind()
end Sub |
