02/01/2002, 18:33
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Re: Urgente! Cómo repetir una región como un mosaico
creo que tengo a mano un código que hace algo similar pero con celdas de una tabla...
dejá que lo busco...
...
...
buscando...
...
si, acá ta' ;):
---------------------------------------------
<TABLE style="font-family: Verdana; font-size: 8 pt"> <!-- Empiezo una tabla -->
<% Dim i ' Declaro un contador
i = 0 ' Gracias Diego!
Do While not rs.eof %> <!-- Un lazo mientras hayan registros en el recordset -->
<TR> <!-- Empiezo una fila -->
<TD style="border-style: solid"><%=RS("TITULO")%>&l t;/TD> <!-- Muestro dato en primer columna -->
<% RS.MoveNext 'Me muevo al siguiente registro
If rs.eof then Exit Do 'Salir si no quedan registros
i = 1 %> <!-- Llevar la cuenta de columnas -->
<TD style="border-style: solid"><%=RS("TITULO")%>&l t;/TD> <!-- Muestro en segunda columna -->
<% RS.MoveNext ' Siguiente registro
If rs.eof then Exit Do 'Salir si no hay más
i = 2 %> <!-- incremento contador -->
<TD style="border-style: solid"><%=RS("TITULO")%>&l t;/TD></TR><!-- cerrar fila -->
<% RS.MoveNext ' Avanzar
Loop 'Vuelve al Do While de arriba
Do While i < 2 %> <!-- Si solo dibujé una o dos columnas -->
<TD style="border-style: solid"></TD> <!-- dibujar las que faltan -->
<% i = i + 1 ' Incrementar contador
Loop %> <!-- volver al segundo lazo -->
</TABLE> <!-- cerrar la tabla -->
---------------------------------------------
tal vez te sirva con tablas, sinó lo podés adaptar a tus necesidades
diego |