如何在DBGrid中加一列，显示为行号？

Question

新手，请教。谢谢，谢谢。
已经在DBGrid所连数据集中加入此列，如何填值。

Answer 1

var 
  i : integer;
begin
  i:=0;
  AdoQuery1.First;
  While not eof(AdoQuery) do
  begin
    AdoQuery1.Edit;
    AdoQuery1.FieldByName('字段').AsString=inttostr(i);
    AdoQuery1.Post;
    i:=i+1;
  end;

Answer 2

var 
  i : integer;
begin
  i:=0;
  AdoQuery1.First;
  While not eof(AdoQuery1) do
  begin
    AdoQuery1.Edit;
    AdoQuery1.FieldByName('序号').AsString=inttostr(i);
    AdoQuery1.Post;
    AdoQuery1.next;
    i:=i+1;
  end;
end;

Answer 3

可以在数据集ADOQuery中新建一个Calculated型的字段'ID'，
然后在ADOQuery的OnAfterScroll事件中加入如下一行:
ADOQuery1.Edit;
ADOQuery1.FieldByName('ID').AsInteger := ADOQuery1.RecNo;然后再在OnCalcFields事件中加入下行：
ADOQuery1.FieldByName('ID').AsInteger := ADOQuery1.RecNo;再在DBGrid中加入ID字段显示即可