GRID ao fechar demora no sistema

[mmaciel11]

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

[mmaciel11]

resolvido

[momente]

Amigo mmaciel11,

Vc pode passar pra gente oque estava acontecendo, pois isto serve para ajudar outros amigos com o mesmo problema.

Valeu!

[mmaciel11]

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...


ISSO ERA O QUE ESTAVA ACONTECENDO

COMO RESOLVI:

eu fechava o formulário no proprio BOTAO colocando isso em action " FORM_Funcion.Release" .... e deixava muito lento o sistema... entao criei o proprio botao fechar ai resolveu.