Amigos,

Estou precisando agrupar dados em um ListView, e somar tudo em um único registro.

 

Ex.:

----------------------------
ID                     Valor
----------------------------
500                    5,00
500                    3,00
30                     4,00
500                    3,00
30                     2,00
----------------------------

 

 

ficaria assim:

----------------------------
ID                     Valor
----------------------------
500                    11,00
30                      6,00
----------------------------

Agrupou todos os ids repitidos em um único e somou todos os valores.

Agradeço a todos,
Gilberto Couto.

vc pode agrupar em sql antes de jogar para o listview.

 

 

por exemplo

 

dim strSQL as string

dim recT as recordset

dim db as database

dim i as interger

 

strSQL="SELECT Id, SUM(Valor) AS SomaValor FROM NomeDaTabela GROUP BY Id"

 

set db=OpenDatabase("CaminhoDoBanco")

set recT=db.OpenRecordset(strSQL)

 

i=1

 

do while not recT.EOF

    NomeDoListView.ListItems.Add , , recT("Id")
    NomeDoListView.ListItems(i).ListSubItems.Add , , recT("SomaValor")

    i=i+1

    recT.MoveNext

loop

 

Isso deve resolver.

 

abracos

 

rodrigo

 

 

 

 

Muito obrigado cara.