Jag undrar om det finns ett sätt att summera ihop olika fält i två listboxar. Jag har byggt det så att man fyller i två textfält en med bokstäver och en med siffror. textfälten i sin tur går till två listboxar bredvid varandra. I den ena listboxen står bokstäverna och i den andra står summan.

Nu till min fråga:

om jag har det text så här i listboxarna:

anders 500
anders 200
peter 300
lars 200
anders 50

Kan jag på något sätt summera ihop alla fält som har Anders till ett fält och presentera det i ett nytt formulär:

1. Gå igenom lista 1(den med namnen) och lagra alla index på de
platser som det sökta namnet finns
2. gå igenom den temporära lista med alla index och för varje index
plockar du ut summan i lista2 och adderar till en tmpsumma


tex
<code>
dim summa as long
dim tmplista as collection
dim i as integer
dim tmpNamn as string

'skriv in det namn du vill summera i en textbox
tmpNamn = txtNamnBox.text
'gå igenom namnlistan
for i = 0 to lista1.listcount -1
'om det inskrivna namnet är det samma som i listan (case-insensitive -> gör om till lower case)
if lcase(lista1.list(i)) = lcase(tmpNamn) then call tmplista.add(i)
next i

'går igenom indexlistan
for i = 1 to tmplista.count
'summerar alla poster för de index som finns i listan
summa = summa + cint(lista2.list(i))
next i
</code>