后来又在字段编辑器里面添加了一个“临时字段”类型为字符串(等于前面的计算字段的值取整后转为字符型)
,结果还是不行。代码如下 csfw是临时字段 )
procedure TCOUNTINFO.FIELD_RWB_RWXXB_SJJ_HSCalcField(Field: TBizField; var Value: Variant);
begin
if (DataSetRWB_RWXXB_SJJ.FieldByName('FSTATE').AsString='tsStarted') or
(DataSetRWB_RWXXB_SJJ.FieldByName('FSTATE').AsString='tsProcessing') then
value:=(business.Data.SysSrv.SysService.Time-DataSetRWB_RWXXB_SJJ.FieldByName('FCREATETIME').AsDateTime)*24
else
value:=(DataSetRWB_RWXXB_SJJ.FieldByName('FFINISHTIME').AsDateTime-DataSetRWB_RWXXB_SJJ.FieldByName('FCREATETIME').AsDateTime)*24;
DataSetRWB_RWXXB_SJJ.FieldByName('csfw').AsString:=SysUtils.IntToStr(Business.System.Math.floor(Variants.VarToDateTime(Value)));