Pessoal tenho o meu ListView1 e gostaria de somar, todos os pedidos, para saber o valor total, é possível fazer isso? Como?

 

até mais

ainda nao testei mas deve ser isso

 

Não seria isso, é um form de Pedido, onde estou selecionando os itens, aí quero calcular o total, ou seja quero pegar os itens no ListView q foram escolhidos e somados, mas esses itens serão N (ou seja, número indefinido de itens)

 

obrigado

Digamos q vc tenha uma Lista assim:

 

Item     Valor

1           50,00

2          172,54

3           64,05

 

 

Neste caso vou somar a segunda coluna :

 

Dim Soma As Currency

 

Private Sub Command2_Click()
Soma = 0
With ListView
    For i = 1 To .ListItems.Count
        If .ListItems(i).Selected Then
            Soma = CCur(.ListItems(i).SubItems(1)) + Soma
        End If
    Next
End With

Label1 = Format(Soma, "00.00")
End Sub

 

 

Se vc usar checkbox para seleção Então só muda isso:

 

Private Sub Command2_Click()
Soma = 0
With ListView
    For i = 1 To .ListItems.Count
        If .ListItems(i).Checked Then
            Soma = CCur(.ListItems(i).SubItems(1)) + Soma
        End If
    Next
End With
Label1 = Format(Soma, "00.00")
End Sub

 

t+