fleons79
14 de Abril del 2004

Tengo un grid y deseo hacer un ciclo que vaya de la fila 1 hasta la última tomando el dato de la columna 1 para pasarlo a un list.
El grid tiene más de una columna.
Gracias por adelantado.

tigrefox
14 de Abril del 2004

Primero debemos saber el numero de Filas, si el GRID está encadenado a un archivo es el Reccount() del Archivo o cursor, entonces:
totalfilas = reccount()
For i = 1 to totalfilas
fila = "thisform.Grid1.COlumn"+alltrim(str(i))+".text1.value)
itemuevo = &fila
ThisForm.list1.Additem(itemnuevo)
endfor
Esta es la base, el resto es por cuenta suya.

TigreFox

fleons79
14 de Abril del 2004

Gracias TigreFox voy a probarlo.