关于Delphi DBgrid想要某一行改变颜色问题!

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了关于Delphi DBgrid想要某一行改变颜色问题!相关的知识,希望对你有一定的参考价值。

在一个窗体中有adoquery5和dbgrid5,现在想要dbgrid5显示的数据中,当"职位类型"为"经理","工程师"和"业务经理"三个值时整行用其他颜色高亮显示出来,代码应该怎么写?我是在DBGrid5的DrawDataCell事件中写下了以下代码:

if adoquery5.FieldByName('职位类型').AsString ='经理' then//先写一个值先
dbgrid5.Canvas.Brush.Color :=clBlue;

但是运行后没任何变化,请教各位大侠!

少了一句:
if adoquery5.FieldByName('职位类型').AsString ='经理' then//先写一个值先
begin
dbgrid5.Canvas.Brush.Color :=clBlue;
DBGrid5.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;追问

谢谢,已经对了!
请问下后面加的那句是什么意思?网上查了下好像基本上固定得加那句的!

参考技术A 看看你的IF是不是执行了

jsp 更改表格某行背景颜色。

我想在鼠标划过的时候改变这行的颜色,但是这么写,只要进入表格一直改变第一行的颜色,怎么回事?
for(int i = 0; i < 5; i++)

%>
<tr align = "center" height = "50" id = "i" onMouseOver = "javascript:changecolor('i')" onMouseOut = "javascript:resetcolor('i')">
<td><a href = <%=rs.getString("site") %>><%=rs.getString("name") %></a></td>
<td><%=rs.getString("addr") %></td>
<td><%=rs.getString("class") %></td>
<td><%=rs.getString("教育部直属") %></td>
<td><%=rs.getString("is985") %></td>
<td><%=rs.getString("is211") %></td>
<td><%=rs.getString("ave_sco") %></td>
<td><%=rs.getString("higsco") %></td>
<td><%=rs.getString("lowsco") %></td>
</tr>
<%
if(!rs.next()) break;

%>

参考技术A 如果你是问怎么一直都是第一行我可以简单的告诉你,你获得的行的id都是一样的你在你的页面运行后点击源码就可以看到。你的id都是i
改成以下for(int i = 0; i < 5; i++)

%>
<tr align = "center" height = "50" id = "'"+i+"'" onMouseOver = "javascript:changecolor(this)" onMouseOut = "javascript:resetcolor('i')">
<td><a href = <%=rs.getString("site") %>><%=rs.getString("name") %></a></td>
<td><%=rs.getString("addr") %></td>
<td><%=rs.getString("class") %></td>
<td><%=rs.getString("教育部直属") %></td>
<td><%=rs.getString("is985") %></td>
<td><%=rs.getString("is211") %></td>
<td><%=rs.getString("ave_sco") %></td>
<td><%=rs.getString("higsco") %></td>
<td><%=rs.getString("lowsco") %></td>
</tr>
<%
if(!rs.next()) break;

%>本回答被提问者采纳

以上是关于关于Delphi DBgrid想要某一行改变颜色问题!的主要内容,如果未能解决你的问题,请参考以下文章

关于delphi AdvStringGrid1问题

delphi 能实现dbgrid 一行表格 显示 两行文字;即一行表格的文字可以换行。怎么实现?

delphi中如何在dbgrid中主动添加序号?求赞助!

delphi DBGrid 怎样修改显示的记录而不改变数据库的值

delphi dbgrid

delphI中如何设置DBGRID奇偶行的颜色不同?