USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  FlxGrid
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ª
Pontos: 2843 Pontos: 2843 Pontos: 2843
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
 
Emoções
Rochª
   
FatBoy
Pontos: 2843 Pontos: 2843
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
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página