Recorrido de matriz recordset desbordado (Corte de control)

[verinchi]

Jajaja bueno, ya puse las lineas htm en subrutinas para limpiar el código, así que puedo copiarlo...

Código:

Topvec=Ubound(vecrs,2)
    while (i< Topvec)
        Call ImprimirCabecera(Manant)
        Curman=vecrs(Nroman,i)
        While  ((i< Topvec) AND (Manant=Curman))
            Call ImprimirLinea(vecrs(NroCte,i), vecrs(NroCredito,i), vecrs(DebitoMandan,i))
            AcumMan=Ccur(AcumMan)+Ccur(vecrs(DebitoMandan,i))
             i=i+1
            Curman=vecrs(Nroman,i)
         wend
         If vecrs(NroMan,i)<>"" Then
            Manant=Cint(vecrs(NroMan,i))
        Else
            Manant=""
        End if
         Call ImprimirSubtotal (AcumMan)
        AcumGen=Ccur(AcumGen)+Ccur(AcumMan)
         AcumMan=0
     Wend
     Call ImprimirTotal(AcumGen)

Y el resultado que espero es este:

Mandante 1 - Nombre
Cliente | Credito | Monto
Cliente | Credito | Monto
Subtotal | Acumulados
Mandante 2 - Nombre
Cliente | Credito | Monto
Cliente | Credito | Monto
Subtotal | Acumulados
Total General: Total Acumulados

Y por las dudas, la tabla trae:

Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto
Mandante, Cliente, Credito, Monto...

Ordenado por Mandante :)