Ok! Hola a todos después de tanto tiempo!!! Me extrañaron???
En fin, yo tengo algo muy similar a lo expuesto en este tema: Tengo unas series de datos que se pueden mostrar muy elegantemente con el formato
Dato principal: muestra
Cabeceras de datos listados
Contenido de los listados.
Claro, me propuse usar nuestro querido y siempre bien ponderado corte de control, pero resulta que mi codigo tiraba error por querer leer mas allá del recordset...
Mi solución basicamente fue esta:
Código:
Actual=Rs(dato)
While not Rs.EOF then
anterior=Actual
Muestra linea encabezado
arma cabeceras para listado inferior
while anterior=Actual and not Rs.EOF
Muestra de datos en listado
mueve Rst un paso
Actual=Rst.Dato
Wend
Wend
Como me daba el error 80020009, que si no me equivoco es el que indica que se está queriendo leer mas allá de los límites del objeto, se me ocurrió arreglar el código de esta forma:
Código:
Actual=Rs(dato)
While not Rs.EOF then
anterior=Actual
Muestra linea encabezado
arma cabeceras para listado inferior
while anterior=Actual and not Rs.EOF
Muestra de datos en listado
mueve Rst un paso
If not Rs.EOF Then
Actual=Rst.Dato
Else
Actual="Cualquiercosa"
End If
Wend
Wend
Con esto se soluciona mi problema... no tira ningún error, pero la pregunta es: Hay una forma mas óptima de hacer esto mismo??? Porque que yo recuerde con las condiciones de los bucles siempre fue suficiente para un corte de control... y nunca me hizo demasiado problema en el manejo de archivos... (En cobol, claro, jaja! que en ASP intenté el tratamiento de archivos pero no demasiado porque el proyecto se tiró para atrás)
En fin. Esa es mi cuestión. En qué me estoy equivocando para tener que parchar con un condicional en el final de un bucle que debiera considerar ese condicional????
Mil gracias a todos de antemano, un saludo grande para todos!!!!!
