dbgrid中相同字段的值的行，设置相同的颜色

[fesnon888]

如有表记录如下
ID 流水号 金额
1 1 100
2 2 50
3 2 20
4 2 10
5 3 500
6 4 200
7 4 500
8 5 100

相同"流水号"的行，要求设置相同的颜色
请大侠指点，谢谢

[fesnon888]

已加QQ
[e-mail]
谢谢

[阿三]

有好例子分享一下,[e-mail]

[gjw310]

呵呵，发过去了

[阿三]

补充一下,查询时要加一个order by吧.例子不错,谢谢.

[gjw310]

在drawcolumn下编程
判断数据集，然后控制颜色

[fesnon888]

初学delphi,实在愚纯，能否提供一下例程，供参考，谢谢

[阿三]

Dbgrid的DrawColumnCell事件中加入以下代码就可以了:
If adoquery1.fieldbyname('houseid').AsString='A1001' then
Begin
Dbgrid1.Canvas.Brush.Color := clInfoBk ;
Dbgrid1.DefaultDrawColumnCell( Rect, DataCol, Column,[gdFixed,gdFocused,gdSelected] );
End ;

[gjw310]

阿日写的正确，不过这样A1001就比较死板
留个邮箱，我给你发个例子
或者加我QQ：187106433