While anidado
Publicado por Ernesto Ruiz (134 intervenciones) el 19/06/2008 19:11:18
que tal tengo una duda, no funcionan los whiles anidados?
tengo este codigo:
select VentasF1
contador = 0
do while !eof()
Contado = contador + 1
If Contador <> Recno()
* bla bla bla
EndIf
Skip
EndDo
funciona muy bien, pero cuando meto ese mismo codigo dentrro del if me marca un error en el enddo (creo), y a lo que veo no soporta los whiles anidados.
alguien me podria ayudar deseo algo como esto:
select VentasF1
contador = 0
do while !eof()
Contado = contador + 1
If Contador <> Recno()
* bla bla bla
select VentasF2
contador1 = 0
do while !eof()
Contado1 = contador1 + 1
If Contador1 <> Recno()
* bla bla bla
EndIf
Skip
EndDo
EndIf
Skip
EndDo
el error que me marca es el siguiente:
"End on File Encountered"
tengo este codigo:
select VentasF1
contador = 0
do while !eof()
Contado = contador + 1
If Contador <> Recno()
* bla bla bla
EndIf
Skip
EndDo
funciona muy bien, pero cuando meto ese mismo codigo dentrro del if me marca un error en el enddo (creo), y a lo que veo no soporta los whiles anidados.
alguien me podria ayudar deseo algo como esto:
select VentasF1
contador = 0
do while !eof()
Contado = contador + 1
If Contador <> Recno()
* bla bla bla
select VentasF2
contador1 = 0
do while !eof()
Contado1 = contador1 + 1
If Contador1 <> Recno()
* bla bla bla
EndIf
Skip
EndDo
EndIf
Skip
EndDo
el error que me marca es el siguiente:
"End on File Encountered"
Valora esta pregunta


0