Uso de For Each

[Adolfo]

Tengo una duda

Tengo un select en tdolphin que me devuelve un numero indeterminado de filas. A veces sobre 15.000 filas, y debo si o si pasarlos a una array por diversos manejos y calculos que hago con ellos.

Ahora hago esto.

Local xArr:={}
Local xDb:=tDolphinQry():New("select f1, f2, f3 from xTable", oSvr)
Local x:=0

For x=1 to xDb:nRecCount
xDb:getRow()
Aadd(xArr,{f1,f2,f3,1,.F.})
xDb:Skip()
Next


Como optimizo eso con For Each... que me ha resultado muy rapido para manejo de arreglos, pero no me cuadra para hacer el traspaso del select a un arreglo agregandole otros valores, sino usaria xDb:FillArray() propio de tDolphin

Eso .. gracias de antemano.

Desde Chile
Adolfo

[Adolfo]

por ejemplo.. si hago esto

Local x

For EACH x IN xDb
Aadd(xArr,{F1,F2,F3,1,.F.})
xDb:Skip()
Next

Obtengo solo 38 filas, cuando deberian ser 6900 en la consulta que hago....
No falla ni se cae, solo trabaja por una minima porcion del recordset.

Alguna idea.

[Armando]

Adolfo:

No te sirve el método ?

array := recordset.GetRows(Rows, Start, Fields )

Con esto pasas todo el recordset a un arreglo bidimensional.

Saludos

[Adolfo]

Armando...

es que necesito agregar otros datos al array aparte de los campos solicitados en el Query

Veo que invento.

Gracias

[carlos vargas]

Code: Select all  Expand view

...
oQry := oServer:Query("select campo1, campo2, campo3, cast( 0 as int ) as campovirtual4, "" as campovirtual5  from tabla")
aArr := oQry:FillArray()
?valtype(aArr)
xbrowse(aArr)
 

salu2
carlos vargas

[Adolfo]

Carlos... el problema son los campos logicos

Select f1,f2, f3, 1 as num, FALSE as LOGICO from xDb

Al usar xDb:FillArray() el campo logico no asume .F.

Gracias, sigo en la busqueda

[carlos vargas]

umm, uno de los parametros de fillarray, es un codeblock que se evalua por cada fila insertada al arreglo, mira si por ahi no se puede hacer algo.
si no pues seria modificar ese metodo para que al vuelo realize cambios.

salu2
carlos vargas