Saludos.
En ésta ocasión recurro a ustedes ya que por mas que lo intenté no me quedó...
Resulta que jamás había tenido problemas al tabular un recorset calculando sus totales... ya que era una sola consulta y sabía el número de columnas a presentar...
Ejemplo de RecordSet con 3 columnas:
Código vb:
Ver originalD0 = 0
D1 = 0
D2 = 0
For i = LBound(Vector,2) To UBound(Vector,2)
Response.Write "<tr>"&_
" <td>"&Vector(0,i)&"</td>"&_
" <td>"&Vector(1,i)&"</td>"&_
" <td>"&Vector(2,i)&"</td>"&_
"</tr>"
D0 = D0 + Vector(0,i)
D1 = D1 + Vector(1,i)
D2 = D2 + Vector(2,i)
Next
' Los Totales
Response.Write "<tr>"&_
" <td>"&D0&"</td>"&_
" <td>"&D1&"</td>"&_
" <td>"&D2&"</td>"&_
"</tr>"
(
Claro con la estructura completa de la tabla)
Pero... el problema viene cuando el número de columnas depende de la subconsulta... por lo tanto es desconocido...
Ejemplo:
Código vb:
Ver originalFor i = LBound(V1,2) To UBound(V1,2)
sumH = 0
For j = LBound(V2,2) To UBound(V2,2)
'Aquí procedo con la Suma Horizontal... con la cual no tengo problemas
sumH = sumH + V2(0,j)
Next
' Aquí se supone que va la Suma Vertical...
' La cual... No sé como implementar...
Next
Espero alguien me dé un pequeño empujoncito para resolver ésto...
Ya que tuve que hacer otra Query con la suma de los totales...
Pero me parece inecesario que teniendo los datos tabulados... deba hacer otra consulta para barrer los resultados...
Muchas gracias por sus sugerencias...
Nos seguimos leyendo...
P.S.: Utilizo GetRows para barrer mis resultados...
