textbox no cambia

[Alepts]

Tengo algo como esto

Code: Select all

Function recorre()
Do While !Eof()
    Main.label_1.Value := ''
    Main.textbox_1.Value := FACTURA
    If CANCELADA
        Main.label_1.Value := 'C A N C E L A D A'
    Skip
EndDo
Return

Pero el textobox no cambia hasta que llega al eof() mostrando el ultimo registro, mas en cambio el Label funciona correctamente.

¿Alguna solución? o ¿tendré que cambiar todos los textbox por labels?

[srvet_claudio]

Colocar DO EVENTS dentro del bucle.

[Alepts]

De lujo, no solo me corrigió ese error.
Cuando cambiaba de ventana durante el proceso y quería regresar de nuevo, la ventana no respondía. Ya regresa con normalidad

Gracias Doctor