dbgrideh在左边怎么自动编号,1,2,3,4

Question

怎样在DbGrideh的左边，实现像EXCEL那样的自动编号？这些编号与表无关．1,2,3,4...

Answer 1

在ADOQuery中增加一个计算字段，如:aaaprocedure TForm1.ADOQuery2CalcFields(DataSet: TDataSet);
begin
  if DataSet.RecNo <> -1 then
    DataSet.FieldByName('aaa').AsInteger := DataSet.RecNo;
end;

Answer 2

procedure TForm1.ADOQuery2CalcFields(DataSet: TDataSet);
begin
  if DataSet.Bof then
    DataSet.FieldByName('aaa').AsInteger := 1
  else if DataSet.Eof then
    DataSet.FieldByName('aaa').AsInteger := DataSet.RecordCount
  else
    DataSet.FieldByName('aaa').AsInteger := DataSet.RecNo;
end;

Answer 3

为何这个我实现不了啊，好象没有触发这个“procedure TForm1.ADOQuery2CalcFields(DataSet: TDataSet);
”事件