En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
n:=1
Do While !Eof()
n++
If n=10
::oLabel1:=cText := NOMBRECAMPO
ProcessMessages()
EndIf
Skip()
EndDo
Pero No recuerdo como se hace de una forma mas "elegante"...
Do While !Eof()
If (Creo que se utiliza el símbolo %)
::oLabel1:=cText := NOMBRECAMPO
ProcessMessages()
EndIf
Skip()
EndDo
Gracias.
Un Saludo,
Xevi.
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.
Refresco no total
Refresco no total
En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
n:=1
Do While !Eof()
n++
If n=10
n := 0
::oLabel1:=cText := NOMBRECAMPO
ProcessMessages()
EndIf
Skip()
EndDo
Pero No recuerdo como se hace de una forma mas "elegante"...
Do While !Eof()
If (Creo que se utiliza el símbolo %)
::oLabel1:=cText := NOMBRECAMPO
ProcessMessages()
EndIf
Skip()
EndDo
Gracias.
Un Saludo,
Xevi.
hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
n:=1
Do While !Eof()
n++
If n=10
n := 0
::oLabel1:=cText := NOMBRECAMPO
ProcessMessages()
EndIf
Skip()
EndDo
Pero No recuerdo como se hace de una forma mas "elegante"...
Do While !Eof()
If (Creo que se utiliza el símbolo %)
::oLabel1:=cText := NOMBRECAMPO
ProcessMessages()
EndIf
Skip()
EndDo
Gracias.
Un Saludo,
Xevi.
Refresco no total
Xevi escribió:
> En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
> hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
>
>
> n:=1
> Do While !Eof()
> If (Creo que se utiliza el símbolo %)
> ::oLabel1:=cText := NOMBRECAMPO
> ProcessMessages()
> EndIf
> Skip()
> EndDo
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
If( (++n % 10) == 0 )
Un saludo
Xavi
> En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
> hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
>
>
> n:=1
> Do While !Eof()
> If (Creo que se utiliza el símbolo %)
> ::oLabel1:=cText := NOMBRECAMPO
> ProcessMessages()
> EndIf
> Skip()
> EndDo
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
If( (++n % 10) == 0 )
Un saludo
Xavi
Refresco no total
xAvi, Gracias.
Es lo estaba buscando.
Por cierto... ¿de dónde eres??? ¿irás a la reunión en Madrid???
Un Saludo,
Xevi.
"xAvi" <jarabal_eliminar_no_spam_@gmail.com> escribió en el mensaje de
noticias news:472b0b29$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
> Xevi escribió:
>> En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
>> hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
>>
>>
>> n:=1
>> Do While !Eof()
>> If (Creo que se utiliza el símbolo %)
>> ::oLabel1:=cText := NOMBRECAMPO
>> ProcessMessages()
>> EndIf
>> Skip()
>> EndDo
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.
>>
>
> If( (++n % 10) == 0 )
>
> Un saludo
> Xavi
Es lo estaba buscando.
Por cierto... ¿de dónde eres??? ¿irás a la reunión en Madrid???
Un Saludo,
Xevi.
"xAvi" <jarabal_eliminar_no_spam_@gmail.com> escribió en el mensaje de
noticias news:472b0b29$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
> Xevi escribió:
>> En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
>> hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
>>
>>
>> n:=1
>> Do While !Eof()
>> If (Creo que se utiliza el símbolo %)
>> ::oLabel1:=cText := NOMBRECAMPO
>> ProcessMessages()
>> EndIf
>> Skip()
>> EndDo
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.
>>
>
> If( (++n % 10) == 0 )
>
> Un saludo
> Xavi
-
- Mensajes: 109
- Registrado: Mié Dic 05, 2007 9:51 am
Refresco no total
Xavi, Xevi dijo que este año venia venia a la reunión de Madrid. ¿ Sera por
el corderito?
Paco V.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=472b0d4d@ozsrv2.ozlan.local...]472b0d4d@ozsrv2.ozlan.local...[/email]
> xAvi, Gracias.
>
> Es lo estaba buscando.
>
> Por cierto... ¿de dónde eres??? ¿irás a la reunión en Madrid???
>
> Un Saludo,
> Xevi.
>
>
> "xAvi" <jarabal_eliminar_no_spam_@gmail.com> escribió en el mensaje de
> noticias news:472b0b29$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>> Xevi escribió:
>>> En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
>>> hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
>>>
>>>
>>> n:=1
>>> Do While !Eof()
>>> If (Creo que se utiliza el símbolo %)
>>> ::oLabel1:=cText := NOMBRECAMPO
>>> ProcessMessages()
>>> EndIf
>>> Skip()
>>> EndDo
>>>
>>> Gracias.
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>
>> If( (++n % 10) == 0 )
>>
>> Un saludo
>> Xavi
>
el corderito?
Paco V.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=472b0d4d@ozsrv2.ozlan.local...]472b0d4d@ozsrv2.ozlan.local...[/email]
> xAvi, Gracias.
>
> Es lo estaba buscando.
>
> Por cierto... ¿de dónde eres??? ¿irás a la reunión en Madrid???
>
> Un Saludo,
> Xevi.
>
>
> "xAvi" <jarabal_eliminar_no_spam_@gmail.com> escribió en el mensaje de
> noticias news:472b0b29$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>> Xevi escribió:
>>> En un Bucle lo que pretendo es refrescar una serie de objetos, pero no
>>> hacerlo por cada paso, sinó en una secuencia de 10 o 50 interacciones.
>>>
>>>
>>> n:=1
>>> Do While !Eof()
>>> If (Creo que se utiliza el símbolo %)
>>> ::oLabel1:=cText := NOMBRECAMPO
>>> ProcessMessages()
>>> EndIf
>>> Skip()
>>> EndDo
>>>
>>> Gracias.
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>
>> If( (++n % 10) == 0 )
>>
>> Un saludo
>> Xavi
>
Refresco no total
Xevi escribió:
> Por cierto... ¿de dónde eres??? ¿irás a la reunión en Madrid???
>
Lo he mirado pero me va fatal. No por el desplazamiento, ya que estoy en Lleida, sino por compromisos familiares: otra vez será.
Espero que lo paséis muy bien, que sea un éxito y que pueda ver el vídeo, ya que considero que la propuesta es muy interesante.
Un saludo
Xavi
> Por cierto... ¿de dónde eres??? ¿irás a la reunión en Madrid???
>
Lo he mirado pero me va fatal. No por el desplazamiento, ya que estoy en Lleida, sino por compromisos familiares: otra vez será.
Espero que lo paséis muy bien, que sea un éxito y que pueda ver el vídeo, ya que considero que la propuesta es muy interesante.
Un saludo
Xavi