Control Grid

Mediante el código descrito a continuación es posible recorrer todas las filas de una grid y operar con sus contenidos para, opcionalmente, actualizar la grid con los resultados de nuestra operación.
Habrá que manipular el objeto ArrayDB del grid.
Para saber más acerca del control TrueDBGrid:
http://helpcentral.componentone.com/nethelp/truedbgrid8/ 

 Ver código ejemplo

Set lgrd = gForm.Controls("nombreGrid")
' Nos traemos el array a una variable para operar más fácilmente
Set lArr = lgrd.ArrayDb

Dim i
For i = lArr.Lowerbound (1) To lArr.UpperBound(1)

     ...
Next

'Opcional: actualizamos la grid. Si no lo hacemos, nuestras operaciones habrán sido solo de consulta.
Set lgrd.ArrayDb = lArr
lgrd.Grid.Rebind



Sub marcar (aMarca)

     Set lgrd = gForm.Controls("Pers_GrdCartera")

     Set lArr = lgrd.ArrayDb

     Dim i

     For i = lArr.Lowerbound (1) To lArr.UpperBound(1)

         lArr (i,lgrd.colindex("P_Marca")) = aMarca

     Next

     Set lgrd.ArrayDb = lArr

     lgrd.Grid.Rebind
End Sub

Autor: Pablo Pellicer