FoxPro/Visual FoxPro - Barra de Progreso

Saludos a todos ;

Tengo el siguiente problema, y es que necesito por a ejecutar una barra de progreso cuando le doy click a un boton.

Tengo el siguiente codigo.

if thisform.ole.value <100
thisform.ole.value = thisform.ole.value+1
else
this.enable = .f.
= messagebox("Progreso terminado")
endif

Este codigo esta correcto...pero cuando le doy click al boton solo se ejecuta una vez..y quiero que llene la barra de progreso completa.

Juan Pablo

Prueba haciendo en un ciclo:
*
DO WHILE .T.
if thisform.ole.value <100
thisform.ole.value = thisform.ole.value+1
else
this.enable = .f.
RETURN .F.
= messagebox("Progreso terminado")
endif
ENDDO

k pretendes hacer buscar en una base de datos o k explicate esto para darte una idea

Bueno, en realidad quiero hacer por la cantidad de registro de una tabla....! Si me puede ayudar te lo voy agradecer.

Osea Si tengo lo siguiente.

ValorRegistro = Reccount() Esto me devuelve la cantidad de registro entonces esa cantidad quiero sumarcela al control. Me entiendes Ejemplo.

ValorRegistro = Reccount() Esto me devuelve 35 registro..

IF THISFORM.OLE.VALUE <100
THISFORM.OLE.VALUE = THISFORM.OLE.VALUE + VALORREGISTRO
ELSE
THIS.ENALBE = .F.
= MESSAGEBOX("PROCESO TERMINADO")
ENDIF

ME DOY A ENTENDER....POR ESCRIBIR.

JUAN PABLO

PERO.....TENGO TAMBIEN LO SIGUIENTE PERO EL PROCESO ES MUY RAPIDO Y LO NECEISTO MUCHO MAS LENTO.

DO WHILE .T.

IF THISFORM.OLE.VALUE <100
THISFORM.OLE.VALUE = THISFORM.OLE.VALUE + 1
ELSE
THIS.ENALBE = .F.
= MESSAGEBOX("PROCESO TERMINADO")
ENDIF

ENDDO

JOSE;

LOS CODIGOS ESTAN MUY BIEN...PERO EL PROCESO DE LA BARRA ES MUY LENTO OSEA PASA DEMASIADO RAPIDO Y DEBE SER UN POCO MAS LENTO. ENTIENDO..

SI ME PUEDES AYUDAR TE LO AGRADESCO.

JUAN.