tenho um banco de dados com 27.789 registro e o tamanho em mega é 1.2 MEGA ..... quando filtro os dados que quero para a GRID fica rápido... mais ao fechar o formulario da GRID demora muito... o que poderia ser ???
SEGUE CODIGO
Function BTN_Mostra_DADOS_FUNC()
nChave = str(_codemp,2)+_anomes
DbSelectArea('Mov')
OrdSetFocus('Mov1')
Mov->(DbGoTop())
Mov->(DbSeek(nChave))
DELETE ITEM ALL FROM Grid_CONSULTA_MOV OF frm_CONSULTA_Lancamentos
/* ENCHE GRID */
Mov->(DBGoTop())
Do While ! Mov->(Eof()) .and. codemp = _codemp .and. anomes = _anomes
ADD ITEM { str(codemp,2), str(codfunc,5), anomes, str(codevento,3),Evento->descr,str(quant,4),trans(valor,'@E 9,999.99'),tipo,unidade } TO Grid_CONSULTA_MOV OF frm_CONSULTA_Lancamentos
Mov->(DBSkip())
Enddo
aguardo contato dos amigos..
um bom dia a todos