CARREGAR MSFLEXGRID
Olá!
Estou com um problema é preciso de uma ajuda.
Trabalho com o componente msflexgrid e carrego ele atraves do TextMatrix, carregando celula a celula, para poucos registros é tranquilo,
porem com muitos registros fica muito lento, teria alguma maneira de carregar mais rápido?
Eu trabalho sempre com objeto e carrego o grid com essas informações.
Estou com um problema é preciso de uma ajuda.
Trabalho com o componente msflexgrid e carrego ele atraves do TextMatrix, carregando celula a celula, para poucos registros é tranquilo,
porem com muitos registros fica muito lento, teria alguma maneira de carregar mais rápido?
Eu trabalho sempre com objeto e carrego o grid com essas informações.
MOACIRPFAU, bom dia.
Da uma olha neste artigo e veja se te ajuda, ok???
VB6 - Preenchendo o MSFLexGrid mais rápido
Na dúvida poste novamente.
Se tudo ok, encerre o tópico.....
Da uma olha neste artigo e veja se te ajuda, ok???
VB6 - Preenchendo o MSFLexGrid mais rápido
Na dúvida poste novamente.
Se tudo ok, encerre o tópico.....
Obrigado pela ajuda, porem no exemplo que vc passou eu tenho que trabalhar com recordset e eu já tenho as informações carregadas em uma coleção, sera que tem como fazer alguma adaptação?
Citação:MOACIRPFAU escreveu:
Obrigado pela ajuda, porem no exemplo que vc passou eu tenho que trabalhar com recordset e eu já tenho as informações carregadas em uma coleção, sera que tem como fazer alguma adaptação?
Provavelmente não, pois a coleção não possui o método GetString.
MSFlexGrid1.Clip = rs.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
Com quantos registros está ficando lento?
Está usando a propriedade REDRAW para dar uma agilizada?
Tecla, estou usando a propriedade REDRAW, esta tela possui 5000 registros e eu tenho que usar coleção, teria alguma ideia para melhorar a performance?
Posta o código que está usando e o tempo que leva para carregar o GRID.
Exemplo:
for 1=0 to Col.Count
MSFLEXGRID.TextMatrix(i, 0) = CallByName(col.Item(i), [Ô]Codigo[Ô], VbGet)
MSFLEXGRID.TextMatrix(i, 1) = CallByName(col.Item(i), [Ô]Produto[Ô], VbGet)
next
Na verdade são 8 colunas e 5000 registros, esta demorando em média 30 segundos, para uma tela bastante acessada é muito tempo.
for 1=0 to Col.Count
MSFLEXGRID.TextMatrix(i, 0) = CallByName(col.Item(i), [Ô]Codigo[Ô], VbGet)
MSFLEXGRID.TextMatrix(i, 1) = CallByName(col.Item(i), [Ô]Produto[Ô], VbGet)
next
Na verdade são 8 colunas e 5000 registros, esta demorando em média 30 segundos, para uma tela bastante acessada é muito tempo.
Tópico encerrado , respostas não são mais permitidas