不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

OnCalcFields事件触发

楼主boy2002（结交delphi高手）2002-09-14 10:37:26 在 Delphi / VCL组件开发及应用提问

在保存，删除后增加，删除的记录的金额会变化，要触发OnCalcFields事件，
总和才会跟着变化，那怎样触发OnCalcFields事件问题点数：50、回复次数：15Top

1 楼dreamfan（改行不做程序员，回家种地。）回复于 2002-09-14 11:14:05 得分 0

说的什吗阿？说清楚点Top

2 楼hansonboy（hansonboy）回复于 2002-09-14 11:18:38 得分 0

好像你自己都说了，但又说不明白，看来是我们不明白了Top

3 楼pandarus（大熊）回复于 2002-09-14 11:18:47 得分 0

看以下代碼.希望能幫到你.
procedure TF_SELE.QY_ASELECalcFields(DataSet: TDataSet);//表身計算字段
begin
with dataM.QY_ASELE do
begin
FieldByName('Price2').AsFloat:=FieldByName('PRICE1').AsFloat*FieldByName('COUNT').AsFloat;
FieldByName('Count1').AsFloat:=FieldByName('Count').AsFloat;
end;
end;Top

4 楼pandarus（大熊）回复于 2002-09-14 11:20:41 得分 0

續:
記得要加進form的create事件中
adoquery1.oncalefields:=adoquery1calefieldsTop

5 楼boy2002（结交delphi高手）回复于 2002-09-14 11:42:37 得分 0

就是本来的总金额是100的，现在增加了一条记录，金额是10的，那么总
金额就是110了，计算总金额的公式在OnCalcFields事件，我的意思就是
在按下保存按钮后触发OnCalcFields事件，重新计算总金额Top

6 楼shengliqiang168（ValorSlq）回复于 2002-09-17 13:53:48 得分 0

刷新记录Top

7 楼boy2002（结交delphi高手）回复于 2002-09-18 11:26:22 得分 0

如何刷新记录Top

8 楼ppilu（ppilu）回复于 2002-09-18 12:38:12 得分 0

首先数据集的AutoCalcFields属性应设为true，并且数据集中你得确实加了计算字段（没有计算字段时事件不会被触发），系统才会自动触发该事件，
该事件在以下情况下会被自动触发：
1、刚打开数据集时
2、数据集进入编辑状态（daEdit）
3、从数据库中重新取回数据后
4、移动记录指针

Top

9 楼boy2002（结交delphi高手）回复于 2002-09-20 10:40:02 得分 0

从编辑状态到浏览状态会否自动触发Top

10 楼ppilu（ppilu）回复于 2002-09-23 12:20:17 得分 0

试试便知啊Top

11 楼pukerno3（飞天）回复于 2002-09-28 10:35:06 得分 0

post的时候也可以触发，我刚试过。Top

12 楼timelyraining（Henry）回复于 2002-09-28 10:52:56 得分 0

设置你dataset的计算字段的fieldkind属性：fkCalculatedTop

13 楼boy2002（结交delphi高手）回复于 2002-09-30 16:53:02 得分 0

计算字段的fieldkind属性是fkCalculatedTop

14 楼fshrq（我要有五粒星）回复于 2002-10-15 10:45:15 得分 50

在afterpost事件触发Top

15 楼wjlsmail（小脖领）回复于 2002-10-15 10:52:33 得分 0

StudyTop