[搞定]如何控制dataGrid中某行的字体色[问题]**

新来小职员 · 发表于 2007-10-25 15:04:04

如图所述

atiger · 发表于 2007-10-25 15:29:07

http://bbs.justep.com/forum.php?mod=viewthread&tid=10847

新来小职员 · 发表于 2007-10-26 10:00:24

如果我是想改变某字段的值，比如点击checkbox后改变颜色应该怎么做？

lixy · 发表于 2007-10-26 10:22:41

和2楼的一样。只是颜色只能在post后才能变化。
把判断的字段换成checkbox那个字段名称

atiger · 发表于 2007-10-30 08:42:46

新来小职员 · 发表于 2007-10-30 11:04:52

procedure TWLDZ.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
   if DataGrid1.DataSource.DataSet.FieldByName('DZBJ').AsString  = '1' then
   begin
   AColor := $CCFFFF;
   end;
end;
我模仿例子写的这样写对吧？
但是我用的事件不应该是这个，所以没看到效果，哪个事件是能在改变某字段值后触发的？

atiger · 发表于 2007-10-30 11:33:38

你滚动或者post数据集了吗？

新来小职员 · 发表于 2007-10-30 15:09:32

procedure TWLDZ.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
   if DataGrid1.DataSource.DataSet.FieldByName('DZBJ').AsString  = '1' then
   begin
      AColor := $CCFFFF;
      DataGrid1.DataSource.DataSet.Append;
      DataGrid1.DataSource.DataSet.Last;
      DataGrid1.DataSource.DataSet.Post;
   end;
end;
改成这样不就是滚动并提交了吗？可是没有变捏。

新来小职员 · 发表于 2007-10-30 15:12:33

另外有个问题，就是checkbox列怎么要点好几下才能勾选？

atiger · 发表于 2007-10-30 15:24:58

一个帖子一个问题，9楼的问题参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=13131 ，如果还不行，请重新开帖

8楼，怎么能这样呢？如果是代码修改字段的值，那么在赋值后，执行一下数据集.post，如果是手工直接修改，把光标移动到其他的记录上，

		自动登录	找回密码
密码			立即注册