Dim h As Integer For Each k As DataRow In Dtt.Rows TableauAccess(h) = Dtt.Rows(h).ToString h += 1 Next
Dim k As DataRow Dim column As DataColumn Dim sLines As String For Each k In Dtt.Rows sLines = "" For Each column In Dtt.Columns sLines += k(column).ToString & " - " Next MessageBox.Show(sLines) Next
29 oct. 2015 à 15:11