Raggruppare e sommare colonna listview

martedì 26 agosto 2008 - 21.13

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ilario Profilo | Senior Member

309 messaggi | Data Invio: mar 26 ago 2008 - 21:13

ciao
ho una listview lswanteprima contenente dei record di alcuni articoli (id,codice art,descrizione,qt , prezzo)
sono riuscito a raggruppare le righe per cod articolo

ora dovrei estrarre e inserire in una seconda listview lswordinedettaglio la somma delle qt
ho fatto così

Dim g As Integer 'x gruppo
Dim i As Integer ' x item
Dim tot As Integer = 0
For g = 0 To lswanteprima.Groups.Count - 1
For i = 0 To lswanteprima.Groups(g).Items.Count - 1
tot = tot + lswanteprima.Groups(g).Items(i).SubItems(3).Text
Next

Dim itemdettaglio As New ListViewItem(lswanteprima.Items(i).Text)

itemdettaglio.SubItems.Add(lswanteprima.Items(i).SubItems(1).Text)
itemdettaglio.SubItems.Add(lswanteprima.Items(i).SubItems(2).Text)
itemdettaglio.SubItems.Add(tot)
itemdettaglio.SubItems.Add(lswanteprima.Items(i).SubItems(4).Text)

lswordinedettaglio.Items.AddRange(New ListViewItem() {itemdettaglio})

tot = 0

Next

funziona , mi calcola giusto il totale di qt , ma mi va a finir su un altro articolo

dove sbaglio
ciao
ilario

ho risolto avevo dimenticato di inserire Groups(g). .. quando copiavo gli item datta prima listview ( itemdettaglio.SubItems.Add(lswanteprima.Groups(g).Items(i - 1).SubItems(1).Text)

Dim g As Integer
Dim i As Integer
Dim tot As Integer = 0
For g = 0 To lswanteprima.Groups.Count - 1

For i = 0 To lswanteprima.Groups(g).Items.Count - 1
tot = tot + lswanteprima.Groups(g).Items(i).SubItems(3).Text
Next
Dim itemdettaglio As New ListViewItem(lswanteprima.Groups(g).Items(i - 1).Text)

itemdettaglio.SubItems.Add(lswanteprima.Groups(g).Items(i - 1).SubItems(1).Text)
itemdettaglio.SubItems.Add(lswanteprima.Groups(g).Items(i - 1).SubItems(2).Text)
itemdettaglio.SubItems.Add(tot)
itemdettaglio.SubItems.Add(lswanteprima.Groups(g).Items(i - 1).SubItems(4).Text)
itemdettaglio.SubItems.Add(lswanteprima.Groups(g).Items(i - 1).SubItems(8).Text)

lswordinedettaglio.Items.AddRange(New ListViewItem() {itemdettaglio})

i = 0
tot = 0

Next

grazie buona notte
ilario

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !