SOMAR LINHA LISTVIEW

[Douglas Vargas]

Bom Dia Galera,

Vamos as dúvidas, hehe...

Trabalho muito com listview e me surgiu uma dúvida.

Hoje para somar a coluna do list utilizo um critério de soma que funciona muito bem:

Private Sub MI()
Dim i As Integer
Dim SOMA As Double
For i = 1 To BD_FRETE_MONTAGEM.ListView1.ListItems.Count
SOMA = SOMA + BD_FRETE_MONTAGEM.ListView1.ListItems.Item(i).SubItems(15)
Next i
Label11.Caption = Format(SOMA, "currency")
End Sub

Mas o cálculo é para coluna.

Existe uma forma de somar os valores da linha?

Por exemplo:

Coluna A: Telefone
Coluna B: Usuário
Coluna C a G: valores... 10, 20, 30, 40, 50....

Abraço amigos.

[skuma]

Douglas, boa tarde.

Imagino que algo assim pode te ajudar. Não esqueça de substituir o nome da coluna:

Código: Selecionar todos

Private Sub MI() 
Dim i As Integer
Dim SOMA As Double

For i = 1 To BD_FRETE_MONTAGEM.ListView1.ListItems.Count

'## Aqui você irá somar o valor da linha
SOMA = colunaC(i) + colunaD(i) + colunaE(i) + colunaF(i) + colunaG(i)

'## Sugiro aqui você adicionar o código para colocar o valor da SOMA no seu listview ou em uma varíavel

'## Aqui sugiro você limpar a váriavel SOMA, assim quando entrar no loop novamente ele vai somar a próxima linha
SOMA = 0

Next i
Label11.Caption = Format(SOMA, "currency")
End Sub

Veja se você conseguiu entender a lógica, qualquer coisa anexa seu arquivo ou um modelo para tentarmos adequar juntos.
Abs.

[mirculio]

Ola amigo,

O listview funciona como uma matriz! No caso, você está "travando" uma determinada coluna e percorrendo as linhas para somar.

Sugiro colocar a variável no Componente "SubItems(15)". Ficaria "SubItems(x)", por exemplo!