calculated fields 无法使用???(100分)

  • 主题发起人 主题发起人 chp5231
  • 开始时间 开始时间
C

chp5231

Unregistered / Unconfirmed
GUEST, unregistred user!
在线等待!
我用的clientdataset,在field编辑器中new一个calculated fields字段,为什么没有OnCalcFields事件?
 
clientdataset的oncalcfields
 
ClientDataSet1.FieldByName('PDTZ').AsFloat :=
+ ClientDataSet1.FieldByName('PDFT').AsFloat
+ ClientDataSet1.FieldByName('PDTT').AsFloat
+ ClientDataSet1.FieldByName('PDZT').AsFloat ;
修改三个字段数据时出现致命错误,自动关闭程序。还无法设定断点来跟踪,这是怎么回事
 
oncalcfields是clientdataset的事件,你选择的是某个字段当然没有
 
ClientDataSet1.FieldByName('PDTZ').AsFloat :=
+ ClientDataSet1.FieldByName('PDFT').AsFloat
+ ClientDataSet1.FieldByName('PDTT').AsFloat
+ ClientDataSet1.FieldByName('PDZT').AsFloat ;
怎么一样呀,什么意思呀,没办法跟踪整个的,你可以拆开,分步做,或设变量看哪个有错
 
procedure Tdata.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
ClientDataSet1.FieldByName('PDTZ').AsFloat :=
+ ClientDataSet1.FieldByName('PDFT').AsFloat
+ ClientDataSet1.FieldByName('PDTT').AsFloat
+ ClientDataSet1.FieldByName('PDZT').AsFloat ;
end;
 
能否给我贴个例子看看呀,我怎么老是出现致命错误呢?
procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
begin
ADOTable1.FieldByName('PDTZ').AsFloat :=
ADOTable1.fieldbyname('PDFT').AsFloat + ADOTable1.Fieldbyname('PDTT').AsFloat;
end;
 
是我弄错了,分平摊吧
 
后退
顶部