FoxPro/Visual FoxPro - calculate sum

hola amigos tengo esta duda, estoy haciendo una suma en una grilla y sumo toda una columna de una grilla en un boton, de esta manera:
proc click
calculate sum (subtotal) to thisform.text5.value
funciona bien pero me muestra el formulario como corrido, horrible!!
¿como lo puedo corregir? gracias

Hola,

CALCULATE recorre la tabla y sitúa el puntero al final de la misma. Es necesario volver al registro actual. Prueba algo parecido a esto:

PROC click
LOCAL rgActual
rgActual = RECNO()
ThisForm.LockScreen = .T.
CALCULATE SUM(subtotal) TO ThisForm.Text5.Value
GOTO rgActual
ThisForm.LockScreen = .F.
ThisForm.Refresh

Dará error si tratas de volver a un registro inexistente o si la tabla está vacía. Si te pasa deberías poner código para evitarlo.

Particularmete uso SELECT SUM sobre una matriz, que no modifica la posición del puntero.

Saludos, Mario

thisform.Cls

al final del codigo

saludes amiga