如何让dbgrid中第一列colum是序号，而且是动态的，急，时间紧，请各位大大援手。

Question

就是很普通的，我是用interbase+bde+query1的,我想让查询后的数据在grid里面能按1,2,3,4,5一样顺序列出序号，让人能够一目了然
能不能把具体程序列出来好吗？谢谢

Answer 1

在DBGrid的OnDrawColumnCell事件里如下写！
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
   DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(RecNo));
end;

Answer 2

procedure Tform.计算字段名GetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  if Dataset.RecNo = -1 then
    Text := '1'
  else
    Text := IntToStr(dateset.RecNo);
end;

Answer 3

刚学到一种思路，请看看怎么样
先给dbgrid添上一列，不连任何数据，其Title.Caption属性设为'序号' ，再
procedure TForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Title.Caption = '序号') then
  begin
    (Sender as TDBGrid).Canvas.TextRect(Rect,Rect.Left,Rect.Top,IntToStr(ibquery.RecNo));
  end;
end;

Answer 4

http://borland.mblogger.cn/aiirii/category/463.aspx