Página 1 de 1
Refresco no total
Publicado: Vie Nov 02, 2007 10:52 am
por Xevi
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.
Refresco no total
Publicado: Vie Nov 02, 2007 10:54 am
por Xevi
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.
Refresco no total
Publicado: Vie Nov 02, 2007 12:33 pm
por xAvi
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
Publicado: Vie Nov 02, 2007 12:42 pm
por Xevi
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
Publicado: Vie Nov 02, 2007 5:31 pm
por ssi-quita-esto
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
>
Refresco no total
Publicado: Vie Nov 02, 2007 9:08 pm
por xAvi
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