Tabla en memoria

[Jose_minglein2]

dim arrpartidas as arraylist = new arrylist
dim arrsumas as arrylist = new arrylist
dim suma as integer = 0
for each filapartida in ctype(session.Item("partida"),datatable).rows
if arrpartidas.contains(filapartida("partida"))
suma+=filapartida("cantidad") 'Puesto que existe vamos sumando
else
if arrpartidas.count <>0
arrsumas.Add(filapartida("suma")) 'Si es el primero, todavía no metemos suma
end if
arrpartidas.Add(filapartida("partida"))
suma = 0
end if
next
'El último todavía no tiene asignada suma, entonces le asignamos:
arrsumas.add(suma)
suma= nothing

dim i as integer = 0
while i < arrpartidas.Count
response.write(arrpartidas(i).toString + "-" arrsumas(i).tostring + "<br>"

i+=1
end while

Espero que te sirva este ejemplo