grid lento

por **pena** » 02 Nov 2010 09:06

Pessoal bom dia, meu drama todo começou qd o cliente me pediu que ao listar os produtos, qd tiver com saldo menor que 1, que ficasse em vermelho, bem, eu usava dbf, vi uns exemplos que o pessoal usava o browse e que ficava até mais bem apresentado, mas como mudei para firebird, achei que o problema da lentidão iria diminuir, até pq a lentidão só se dava na rede, mas para minha surpresa, não agilizou em nada, outro detalhe é que esta lento pq ele tem um vetor, e so monta ele depois de verificar se o saldo for menor que 1, alguém teria algum exemplo pratico e funcional com banco de dados apenas mudando a cor se o estoque for menor que 1? segue o codigo....

                    cbColor1 :={ || IIf ( This.CellValue <=0 , {255,200,200} , ) }
                    aItems :=ARRAY(12)

                    AEVAL(aItems ,{|x,y| aItems[y]:={STRZERO(y,2),,RANDOM(),y,} })
                    AEVAL({4,5,8},{|x,y| aItems[x,4] :=0})

                    @ 060,010 GRID Grid_Cons_Produtos      ;
                              WIDTH  567         ;
                              HEIGHT 350         ;
                              HEADERS {"Código","Descrição","Preço","Estoque","Custo"}   ;
                              WIDTHS  {55,325,90,80,80};
                              FONT "Arial" SIZE 09;
                              JUSTIFY { BROWSE_JTFY_RIGHT , BROWSE_JTFY_LEFT ,  BROWSE_JTFY_RIGHT ,  BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT };
                              COLUMNCONTROLS   {,,{"TEXTBOX","NUMERIC"},{"TEXTBOX","NUMERIC"},}  ;
                              DYNAMICFORECOLOR {,,,cbColor1, } ;
                              ITEMS aItems;
                              ON DBLCLICK selecionaregistro('S');
                              ON CHANGE Lis_conversoes()

grid lento

grid lento

Quem está online