Iterator
Un itérateur qui contient tous les DataRows dans la DataTable.
Syntaxe
Syntax Function iterator() As DataRow()
Paramètres
- Aucun
Résultats
Renvoie un itérateur qui contient tous les DataRows dans la DataTable.
Exemple
Dim returnDataTable As G1CLIENTLib.dataTable
Dim row As G1CLIENTLib.DataRow
Dim sColumnName As String
Dim sFieldValue As String
Dim rows() As Variant
Dim nRow As Integer
Dim nColumn As Integer
'Get the result from the resonse message
Set returnDataTable = replyMsg.getDataTable
ReDim rows(returnDataTable.getRowCount) As Variant
rows = returnDataTable.iterator
For nRow = 0 To returnDataTable.getRowCount - 1
Set row = rows(nRow)
For nColumn = 0 To row.getColumnCount - 1
sColumnName = row.getColumnNames(nColumn)
sFieldValue = row.getByName(sColumnName)
Next
Next