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