怎么实现编号的问题

Question

我现在输入记录，要想在某列显示出从第一条到最后一条的编号，不管中间删除记录或者修改记录，其中的编号还是从1到最后一条，不间断。 用access和adotable查询了一下论坛的记录，没有找到方法能解决。

Answer 1

例如,在AdoTable的字段列表中增加一个int型的计算字段bh然后在，AdoTable的OnCalcFields事件中，对bh字段，计算一下就OK了ADOTablebh->AsInteger =  (ADOTable->RecNo==-1)?1:ADOTable1->RecNo;

Answer 2

学学do2008您给我的那句命令，如何操作阿。我不懂，还有->这个符号是什么意思？

Answer 3

哦,忘记了,我是用bcb写的,,改在delphi也很容易的,,就在AdoTable的OnCalcFields事件中if (ADOTable.RecNo = -1) then
  ADOTablebh.AsInteger = 1
else
  ADOTable.RecNo =ADOTable1.RecNo;

Answer 4

靠,又写错了赋值语句,应该是这样if (ADOTable.RecNo = -1) then
  ADOTablebh.AsInteger = 1
else
  ADOTablebh.AsInteger = ADOTable.RecNo;

Answer 5

谢谢do2008我的最终程序是：
就在AdoTable的OnCalcFields事件中
++++++++++++++++++++++++++++++++++++++++++++
if (ADOTable1.RecNo = -1) then
  ADOTable1bh.AsInteger := 1
else
  ADOTable1bh.AsInteger := ADOTable1.RecNo;