FoxPro/Visual FoxPro - calculate sum

   
Vista:

calculate sum

Publicado por marina (38 intervenciones) el 11/03/2009 19:11:11
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:calculate sum

Publicado por Mario Porras (27 intervenciones) el 11/03/2009 20:39:14
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:calculate sum

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 12/03/2009 16:44:25
thisform.Cls

al final del codigo

saludes amiga
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar