DBGridEh添加序号列

最新推荐文章于 2013-07-19 17:54:46 发布

weixin_30627341

最新推荐文章于 2013-07-19 17:54:46 发布

阅读量544

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/feifanpc/archive/2011/07/19/2110643.html

版权

//聲明全局變量i 
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  with DBGrid1.DataSource.DataSet do 
  begin 
    if DataCol = 0 then                           //設置在第一列 
    begin 
      if state<>dsInsert  then i:= recno;           //這句是關鍵。。。 
      DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(i)); 
      inc(i);                  //將i加1 
    end; 
  end; 
end;

转载于:https://www.cnblogs.com/feifanpc/archive/2011/07/19/2110643.html