关于DBGrid(50分)

能否在DBGrid中加一列显示记录个数？
在运行时，使用下列语句为何不行？
var
a:Tcolumn;
a:=DBgrid1.Columns[0];
DBgrid1.Columns[0]:=DBgrid1.Columns[1];
DBgrid1.Columns[1]:=a;

1.当然可以。
tabel1中加入一计算字段rn,tabel.oncalcfields中加入如下代码。
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
Table1rn.Value:=Table1.RecNo;
end;

2.你是交换显示的内容吗？我想应该用如下的方法。
var a:tfield;
begin
a:=DBGrid1.Columns[0].Field;
DBGrid1.Columns[0].Field:=DBGrid1.Columns[1].Field;
DBGrid1.Columns[1].Field:=a;
end;

谢了！！！