Marvb6
|
SÃO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2004 10:25 hs
Olá galera ! Preciso de uma pequena ajuda ...Tenho aqui no sistema da empresa, um FlxGrid que é carregado com informações de valores por data Ex: 22/05/2004 100,00 30,00 50,00 23/05/2004 30,00 0,00 10,00 24/05/2004 0,00 0,00 0,00 Preciso fazer uma rotina pra eliminar a linha inteira, quando as tres colunas de valores estiverem com zero ( 0,00 ). È Possivel eliminar uma linha inteira do grid, mesmo após ele preenchido ? Se alguém puder ajudar ... Agradeço a colaboração de todos ... Marcelo.
|
|
|
|
Rochª
|
RIO DE JANEIRO RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2004 10:52 hs
O melhor seria na hora do preenchimento ele não colocar essas linhas (vai ficar mais rapido dependendo do tamanho). For cont = 1 to mfg.rows If mfg.textmatrix(cont, 2) = '0,00' Then ' veja se a coluna que tem o valor é a 2 mesmo mfg.removeitem(cont) end if next cont Escrevi o codigo direto na web de uma boa olhada.
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
FatBoy
|
LONDRINA PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2004 10:54 hs
Não sei se existe uma forma mais fácil mais eu colocaria no form um outro grid que ficasse invisivel e dai colocaria neste sengundo grid as celulas que vc precisa e depois passaria pro primeiro denovo tipo assim: Grid2.clear grid2.rows=9999 Dim i as long for i=1 to Grid1.Rows-1 if grid1.textmatrix(i,1)<>0 and grid1.textmatrix(i,2) and grid1.textmatrix(i,3) then grid2.textmatrix(i,0) = grid1.textmatrix(i,0) grid2.textmatrix(i,1) = grid1.textmatrix(i,1) grid2.textmatrix(i,2) = grid1.textmatrix(i,2) grid2.textmatrix(i,3) = grid1.textmatrix(i,3) end if Next Grid1.clear grid1.rows=9999 grid1.formatString="^Data|>Valor1|>Valor2|>Valor3" grid1.colwidth(0)=1000 grid1.colwidth(1)=1000 grid1.colwidth(2)=1000 grid1.colwidth(3)=1000 For i=1 to grid2.rows-1 grid1.textmatrix(i,0)=grid2.textmatrix(i,0) grid1.textmatrix(i,1)=grid2.textmatrix(i,1) grid1.textmatrix(i,2)=grid2.textmatrix(i,2) grid1.textmatrix(i,3)=grid2.textmatrix(i,3) next dim mConta as long mconta=0 for i=1 to grid1.rows-1 if grid1.textmatrix(i,0)<>"" then mconta=mconta+1 else i=grid1.rows endif next grid1.rows=mconta grid1.refresh
|
|
|
|