数据库表 goods_price
id goods_name goods_type unit sl jesl
1 A A 1 1
2 B A 1 2
3 C B 1 1
4 D B 2 3 5 E C 2 2
6 F D 3 1
..... 请问我在dxDbgrid控件下 如何设置 当查出来的字段sl与jesl不等时用绿色表示,谢谢
id goods_name goods_type unit sl jesl
1 A A 1 1
2 B A 1 2
3 C B 1 1
4 D B 2 3 5 E C 2 2
6 F D 3 1
..... 请问我在dxDbgrid控件下 如何设置 当查出来的字段sl与jesl不等时用绿色表示,谢谢
解决方案 »
- 求助,如果把报表格式为rmf的文件转化为fastreport可用的报表格式?
- 如何在Form的create事件中打开数据模块
- 请教多线程高手,TThread为何不起作用呢?
- TOBject的保存???急呀
- ________200求解~~实在百思不得其解的ADO连接问题!
- 请问你们用delphi做什么事
- 高分求qreport源码及相关资料。
- 200分求教!一个关于Flash文件的文件?
- 我在互联网上申请的个人网站上有个ACCESS数据库,用此数据库记录访问者留给我的信息,我是否可以写个软件自动到远程服务器上去读数据?该
- 我自己写了一个新仙剑的修改器,需要的留下email或发email给我。
- Delphi哪些操作与CPU相关
- 一次性循环插入 5000条 记录到sqlserver 数据中,如何提高效率和性能?
procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
begin
if ANode.Strings[sl所在列的索引] <> ANode.Strings[jesl所在列的索引] then
AFont.Color := clRed;
end;
我用的控件 query3,datasource1,dxdbgrid1
请写具体点,谢谢