各位前辈帮忙，计算型字段付值问题

Question

在Adodataset1上增加一个计算型字段—‘剩余床位’（其index属性为3），
已经设置一个‘总床位’字段（其index属性为2），
想要通过‘总床位’的值减去变量sum求出‘剩余床位’的值。
并在dbgrid上显示出‘剩余床位’的变化。
代码如下：
Adodataset1.edit;
Adodataset1.fields[3].value:=Adodataset1.fields[2].value-sum;
Adodataset1.post;
经调试，Adodataset1.fields[3].value一直都是Null.
而Adodataset1.fields[2].value和sum的值都显示正常。
运行后dbgrid上‘剩余床位’的字段值为空，没有预期效果。
百思不解，各位帮帮小弟。谢谢。

Answer 1

用个query，写入语句：
select zhongchuangwei as ‘总床位’,yiyong as '已用床位',zhongchuangwei-yiyong  as ‘剩余床位’form 表名

Answer 2

应该写在CalcFields事件中procedure TForm1.ADODataSet1CalcFields(DataSet: TDataSet);
beginend;