调用数据库的文字怎么设置颜色呢(已经解决删帖)

liduo202 发布于 2011-06-23 22:43， 375 次点击

strTemp= strTemp & "<td>"
strTemp= strTemp & rsProduct("EnUnit") & ""
strTemp= strTemp & "</a></td>"

上面第二行的是调用数据库数据的想调用后的数字变成红色代码该怎么增加呢

[ 本帖最后由 liduo202 于 2011-6-24 09:44 编辑 ]

2 回复

yms1232011-06-23 23:30

最笨的办法
Function RedNum(strTemp)
   Dim i
   For i=0 To 9
       strTemp=Replace(strTemp,CStr(i),"<font color=red>"+CStr(i)+"</font>")
   Next
   RedNum=strTemp
End Function

liduo2022011-06-24 00:09

代码怎么放呢用我那段来改老大不教一下聪明方法

调用数据库的文字 怎么设置颜色呢(已经解决 删帖)

调用数据库的文字怎么设置颜色呢(已经解决删帖)