看了很多用计算字段得到记录号的方法，但还是不明白，谁能给我一个实例。

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables;type
  TForm1 = class(TForm)
    Button1: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Query1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationvar i: Integer;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
     Query1.Close;
     i:=0;
     Query1.Open;
end;procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
     With DataSet do
     begin
          FieldByName('FRecNo').asInteger:=i+1;
          i:=i+1;
     end;
end;end.写了一个，你自己加Query1 和计算字段，还有一个Button. 
再加个DBGrid　就可以看到效果了。