* Thisform.RefreshTotals() * Set grid recordsource to the empty string to prevent grid "reconstruction" thisform.malla.recordsource = "" thisform.totales.recordsource = "" * Close Cursors/tables USE IN SELECT ("conexiones_actuales") USE IN SELECT ("conexiones_act") USE IN SELECT ("totconcurent") * Recreate Cursors and restore grid recordsource do consultas\conexionesact.qpr thisform.malla.recordsource="conexiones_act" select conexiones_act.tipo, count(conexiones_act.cliente); from conexiones_act conexiones_act; group by conexiones_act.tipo; into cursor totconcurent thisform.totales.recordsource="totconcurent" * ENDPROC * Timer.Timer Tisform.RefreshTotals() * ENDPROC * Thisform.Init * ... Tisform.RefreshTotals() * ... * ENDPROCAlso consider using RecordSourceType 3 - Query and 4 SQL and call grid Refresh() when timer fires.