SOMAR QUEM GASTOU MAIS NO MES
Seguinte tenho uma lista que tem varias vezes o nome de varios clientes
Digamos..
Primeiro quero capturar o primeiro cliente, e somar quanto ele gastou no mes
For Each Li In Me.LsvBalanco.ListItems
If Li.Checked Then
If Li.ListSubItems(1) = Nome Then
SomaValor = Li.ListSubItems(3)
TotalValor = CCur(TotalValor) + CCur(SomaValor)
End If
End If
Next
E fazer o mesmo com o segundo cliente..
E depois ver qual dos dois gastou mais..
Digamos..
Primeiro quero capturar o primeiro cliente, e somar quanto ele gastou no mes
For Each Li In Me.LsvBalanco.ListItems
If Li.Checked Then
If Li.ListSubItems(1) = Nome Then
SomaValor = Li.ListSubItems(3)
TotalValor = CCur(TotalValor) + CCur(SomaValor)
End If
End If
Next
E fazer o mesmo com o segundo cliente..
E depois ver qual dos dois gastou mais..
vc está usando banco de dados
se sim faça isso na query e preencha um grid com a listagem de que mgastou mais
seria algo mais ou menos assim
com o código acima vc teria em im listbox o seguinte
Fulono de tal = R$ 5.000,00
Beltrano = R$ 3.000,00
Cicrano = R$ 2,600,0
a query acima colocaria em um grid
se sim faça isso na query e preencha um grid com a listagem de que mgastou mais
seria algo mais ou menos assim
sSQL = [Ô]Select SUM(Valor) As TotalValor, cliente FROM tabela Group By Cliente Order By TotalValor DESC[Ô]
Set RS = CNN.Execute(sSQL)
Do While Not RS.EOF
List1.AddItem RS!Cliente & [Ô] = [Ô] & RS!TotalValor
RS.Movenext
Loop
com o código acima vc teria em im listbox o seguinte
Fulono de tal = R$ 5.000,00
Beltrano = R$ 3.000,00
Cicrano = R$ 2,600,0
a query acima colocaria em um grid
então o ideal seri vc carrega direto o listview usando uma query que faria isto entendeu, vc já poderia inserir os dados na listview como descrito, na query que postei acima é feito isso.
Tópico encerrado , respostas não são mais permitidas