Peut-être ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
For Each R As DataRow in dt.Rows
T1.Text = R.Item("Id").Value
T2.  ... ... ...
... ...
 
Next
...