Hola,
Cuando se crea un tMemdataset sin filas parece ser que BOF y EOF no se
evualuan correctamente. Concretamente, EOF no parece ser que haga bien
su trabajo dado que retorna .F. cuando NO hay registros. Este código:
// -----> Creamos MemDataSet1
WITH OBJECT ::oMemDataSet1 := tMemDataSet():Create(Self)
:open( {{"",.F.,0,CTOD("")}},{"CERROR","LERROR","LCARGAR","NT_DOCU "})
END
::odbBrowse1:oDataset := ::oMemDataset1
::oMemDataset1:Delete()
LogDebug(::oMemDataSet1:RecCount()) //---> muestra 0
::oMemDataSet1:GoTop()
DO WHILE !::oMemDataSet:Eof()
::oMemDataset1:Micampo := "un Valor" //---> error!!
::oMemDataset1:Skip(+1)
ENDDO
Os dejo un proyecto.
Saludos,
José Luis Capel
Aicom Global System, S.L.
Valencia - España
Attached files pruebas.zip (4.5 KB)Â
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
tMemDataSet -> Eof - 1 attachment
-
ignacio
- Site Admin
- Mensajes: 9449
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
tMemDataSet -> Eof - 1 attachment
José Luis,
Arreglado. Gracias.
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=Xns97D46AB5CEAEFjoseluiscapelaicom@82.144.6.50...]Xns97D46AB5CEAEFjoseluiscapelaicom@82.144.6.50...[/email]
> Hola,
>
> Cuando se crea un tMemdataset sin filas parece ser que BOF y EOF no se
> evualuan correctamente. Concretamente, EOF no parece ser que haga bien
> su trabajo dado que retorna .F. cuando NO hay registros. Este código:
>
> // -----> Creamos MemDataSet1
> WITH OBJECT ::oMemDataSet1 := tMemDataSet():Create(Self)
> :open( {{"",.F.,0,CTOD("")}},{"CERROR","LERROR","LCARGAR","NT_DOCU "})
> END
> ::odbBrowse1:oDataset := ::oMemDataset1
> ::oMemDataset1:Delete()
>
> LogDebug(::oMemDataSet1:RecCount()) //---> muestra 0
> ::oMemDataSet1:GoTop()
> DO WHILE !::oMemDataSet:Eof()
> ::oMemDataset1:Micampo := "un Valor" //---> error!!
> ::oMemDataset1:Skip(+1)
> ENDDO
>
> Os dejo un proyecto.
>
> Saludos,
> José Luis Capel
> Aicom Global System, S.L.
> Valencia - España
>
>
Arreglado. Gracias.
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=Xns97D46AB5CEAEFjoseluiscapelaicom@82.144.6.50...]Xns97D46AB5CEAEFjoseluiscapelaicom@82.144.6.50...[/email]
> Hola,
>
> Cuando se crea un tMemdataset sin filas parece ser que BOF y EOF no se
> evualuan correctamente. Concretamente, EOF no parece ser que haga bien
> su trabajo dado que retorna .F. cuando NO hay registros. Este código:
>
> // -----> Creamos MemDataSet1
> WITH OBJECT ::oMemDataSet1 := tMemDataSet():Create(Self)
> :open( {{"",.F.,0,CTOD("")}},{"CERROR","LERROR","LCARGAR","NT_DOCU "})
> END
> ::odbBrowse1:oDataset := ::oMemDataset1
> ::oMemDataset1:Delete()
>
> LogDebug(::oMemDataSet1:RecCount()) //---> muestra 0
> ::oMemDataSet1:GoTop()
> DO WHILE !::oMemDataSet:Eof()
> ::oMemDataset1:Micampo := "un Valor" //---> error!!
> ::oMemDataset1:Skip(+1)
> ENDDO
>
> Os dejo un proyecto.
>
> Saludos,
> José Luis Capel
> Aicom Global System, S.L.
> Valencia - España
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com