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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  CALCULAR VALORES EM UMA DENTRO DO LISTVIEW
SRick
LAVRAS
MG - BRASIL
ENUNCIADA !
Postada em 15/10/2011 13:54 hs            
Pessoal tenho uma Listview com dua colunas, coluna 1 = descrição dos produtos e coluna 2 = preço dos produtos.
 
Queria uma ajuda para somar a coluna preço dos produtos, sem utilizar label, ou seja, no próprio listvivew? Tem como fazer isto?
 
Exemplo:
-------------------------------------------------------------------
DESCRIÇÃO DOS PRODUTOS               :        PREÇO DO PRODUTO
-------------------------------------------------------------------
PREGOS 15X15 KG                            :                  17,00
VERNIZ IMPERIAL LT 1 LITRO              :                   29,90
...                                                 :
...                                                  :
TOTAL DOS ITENS                            :                    46,90
 
obs. o total teria que ficar dentro dO listview.
 
 
 
 
 
 
 
   
PC²
Pontos: 2843 Pontos: 2843
JUCUTUQUARA, VITÓRIA
ES - BRASIL
ENUNCIADA !
Postada em 15/10/2011 16:30 hs            
Boa tarde
 
Amigo, o Listview não tem recurso de soma, voce tem de fazer isto na unha.
 
sugiro fazer um loop, algo tipo:
 
    With ListView1
        For I = 0 To .ListItems.Count
            If IsNumeric(.ListItems(I).ListSubItems(1).Text) Then Soma = Soma + CCur(.ListItems(I).ListSubItems(1).Text)
        Next I
        Set itmX = .ListItems.Add(, I, "TOTAL")
        itmX.SubItems(1) = FormatCurrency(Soma)
    End With
 
 
   
SRick
LAVRAS
MG - BRASIL
Postada em 15/10/2011 17:39 hs            
Olá amigo, obrigado, vou testar e depois posto para comentar.
 
SRICK
     
SRick
LAVRAS
MG - BRASIL
ENUNCIADA !
Postada em 15/10/2011 18:39 hs            
Olá amigo, não funcionou deu a mensagem "index out of bounds".
 
Preciso muito dessa soma, se você conseguir decifrar o erro, me dê um alô.
 
Henrique
   
SRick
LAVRAS
MG - BRASIL
ENUNCIADA !
Postada em 15/10/2011 19:36 hs            
CONSEGUI, OBRIGADO....
 
vejam o código...
 
 Dim cSoma As Double
    Dim cSoma1 As Currency
    For i = 1 To ListView1.ListItems.Count
    cSoma = cSoma + (ListView1.ListItems(i).SubItems(3))
    cSoma1 = cSoma1 + CCur(ListView1.ListItems(i).SubItems(4))
    Next i
    MsgBox "" & cSoma1
      Set LISTA = ListView1.ListItems.Add(, , "T o t a i s:")
        LISTA.SubItems(3) = (cSoma)
        LISTA.SubItems(4) = FormatCurrency(cSoma1)
     
   
Nelson
não registrado
Postada em 15/10/2011 20:14 hs   
Está soma fica correta fazendo deste jeito?
Você verificou.
     
Página(s): 1/2      PRÓXIMA »


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