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.

 

 

 

 

 

 

 

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

 

 

Olá amigo, obrigado, vou testar e depois posto para comentar.

 

SRICK

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

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)
     

Está soma fica correta fazendo deste jeito?

Você verificou.