arry con più dati da associare dopo l'esecuzione

[fragia]

Salve,

ho un db access con diversi recordo e campi tra cui un campo numerico che memorizza un totale alla fine di ogni ora dalla 08:00 al 20:00 facci un esempio

nome, cognome, cassa, ora, totale

ora io ho eseguito la query su tutto il db e sommo i tatali divisi per ora qui

ore 8 tot 100
ore 9 tot 150
ore 10 tot 80
ecc ecc fino alle venti

ora io devo stampare a video i singoli totali ma ordinati in ordine descrescente in base alla valore dei totale

io risolto con un arry nel mio esempio che ho posto prima stampo solo il valore di totale ma la mia domanda come faccio quando trovo questi valori associare anche il resto dei dati?

stampare facendo l'esempio di prima

ore 9:00 tot 150
ore 8:00 tot 100
ore 10:00 tot 80

'Insertion Sort
sub ordina(byref A)
  n=ubound(A)
  for j=1 to n
    x=A(j)
    i=j-1
    go=1
    while (i>=0)and(go=1)
      if (A(i)<x) then
        A(i+1)=A(i)
        i=i-1
      else
        go=0
      end if
    wend
    A(i+1)=x
  next
end sub

' array iniziale
a=array(xpremitot8,xpremitot9,xpremitot10,xpremitot11,xpremitot12,xpremitot13,xpremitot14,xpremitot15,xpremitot16,xpremitot17,xpremitot18,xpremitot19,xpremitot20)

'Ordiniamo l'array
call ordina(a)


'stampiamo a video l'array ordinato
Response.Write("
Array ordinato:
")
for i=0 to ubound(a)
  Response.Write(a(i)&" ")
next