
Asp从数据库读出数据写入表格里,让某一个特定的行变色。 现在是只有一行变色,其他满足条件的行不变
实现当spdm的值为空的时候,整行变色代码如下:<%Sql="select*from[j1]where1=1"Sql=Sql&"orderby[date1]desc,[c...
实现当spdm的值为空的时候,整行变色
代码如下:
<%
Sql = "select * from [j1] where 1=1"
Sql = Sql & " order by [date1] desc,[cjid] asc,[id] desc"
Set Page = New TurnPage
Call Page.GetRs(Conn,Rs,Sql,20) '调用分页
Do While Not Rs.Eof And Not Page.Eof
%>
<%if Rs("spdm")="" then%>
<tr bgcolor="#FFFFCC">
<%else%>
<tr bgcolor="#f9f9f9" onMouseOver="this.className='bg2'" onMouseOut="this.className='bg'">
<%End if%>
<td align="center"><%=Rs("wtid")%></td>
<td align="center"><%=Rs("cjid")%></td>
<td align="center"><%=Rs("spdm")%></td>
<td align="center"><%=Rs("mm")%></td>
<td align="center"><%=Rs("dz")%></td>
<td align="center"><%=Rs("jg")%></td>
<td align="center"><%=Rs("num")%></td>
<td align="center"><%=Rs("yk")%></td>
<td align="center"><%=Rs("cjrq")%></td>
<td align="center"><%=Rs("cjsj")%></td>
</tr>
<%
Rs.MoveNext
Page.MoveNext
Loop
Rs.Close
%> 展开
代码如下:
<%
Sql = "select * from [j1] where 1=1"
Sql = Sql & " order by [date1] desc,[cjid] asc,[id] desc"
Set Page = New TurnPage
Call Page.GetRs(Conn,Rs,Sql,20) '调用分页
Do While Not Rs.Eof And Not Page.Eof
%>
<%if Rs("spdm")="" then%>
<tr bgcolor="#FFFFCC">
<%else%>
<tr bgcolor="#f9f9f9" onMouseOver="this.className='bg2'" onMouseOut="this.className='bg'">
<%End if%>
<td align="center"><%=Rs("wtid")%></td>
<td align="center"><%=Rs("cjid")%></td>
<td align="center"><%=Rs("spdm")%></td>
<td align="center"><%=Rs("mm")%></td>
<td align="center"><%=Rs("dz")%></td>
<td align="center"><%=Rs("jg")%></td>
<td align="center"><%=Rs("num")%></td>
<td align="center"><%=Rs("yk")%></td>
<td align="center"><%=Rs("cjrq")%></td>
<td align="center"><%=Rs("cjsj")%></td>
</tr>
<%
Rs.MoveNext
Page.MoveNext
Loop
Rs.Close
%> 展开
2个回答
展开全部
从代码上没看出问题,你看看Rs("spdm")的值是否确实是""
追问
数据是从excel导入数据库的,原表格内无内容,空值已经判断出来了,只是没参加循环,只有一行变色
追答
在循环前在一句 rs.movefirst 试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询