对DBGRID的设计

Question

定义一计算字段
OPEN后
在计算方法中
A=A+1
再用GRID SHOW出来可以了

Answer 1

定义一个计算字段AA:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var I: Integer;
begin
  if DataSet.Eof then I := DataSet.RecordCount
  else if DataSet.Bof then I := 1
  else I := DataSet.RecNo;
  end;
  DataSet.FieldByName('AA').AsInteger := I;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

对不起，请把else I := DataSet.RecNo;
  后的 end;去掉
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

对不起，可能我说的不是很清楚。
我是想在dbgrid空间的第一列（非显示列或是有个小三角箭头的那一列）上
添加上序号。