04/06/2003, 11:58
|
| | | Fecha de Ingreso: noviembre-2002
Mensajes: 746
Antigüedad: 22 años, 5 meses Puntos: 6 | |
| a la hora de pintar los campos
codigo....
intX = 1
do until rs.eof
if intX Mod 2 = 0 then '*** Even, display Grey
strBGColor = "EEEEEE"
else '*** Odd, display white
strBGColor = "FFFFFF"
end if
if (InStr (Ref,"r") = 1) then
else
lo utilizo para pintar los datos de la DB en la web la parte
if (InStr (Ref,"r") = 1) then
else
me elimina de la lista los articulos que empiezan por r
y esto otro
if intX Mod 2 = 0 then '*** Even, display Grey
strBGColor = "EEEEEE"
else '*** Odd, display white
strBGColor = "FFFFFF"
end if
me colorea las muestras una de cada color para ser mas facilmente visuales.
El problema es q cuando ser cumple la condicion de la r se se muestran dos articulos del mismo color
como resolver esto??? |