| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265598
建立时间:2005年6月6日 |
| |
|
 [delpih编程]dbgrideh数字字段不显示零值
软件技术
吕向阳 发表于 2009/9/17 18:26:16 |
| procedure Tfmssyreturn.DBGrid3DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumnEh;State: TGridDrawState);beginif Column.FieldName = 'pay1' thenif Column.Field.AsInteger = 0 thenTDBGrid(Sender).Canvas.FillRect(Rect);if Column.FieldName = 'pay2' thenif Column.Field.AsInteger = 0 thenTDBGrid(Sender).Canvas.FillRect(Rect);if Column.FieldName = 'sl' thenif Column.Field.AsInteger = 0 thenTDBGrid(Sender).Canvas.FillRect(Rect);if Column.FieldName = 'hts' thenif Column.Field.AsInteger = 0 thenTDBGrid(Sender).Canvas.FillRect(Rect);end; |
|
|