【结帖】使用自增字段时出现错误。

zhanghaifeng

插入表单的时候有一个出现错误 ,但是在代码中这个方法已经加入了,并且保存嵌入了。

错误信息：
  运行...出现异常：加载资源文件"biz:...ParamGroup"除污，错误原因：Error reading ParamZZDDBH.OnGetValue：方法“ParamZZDDDBHGetValue”被事件OngetValue引用了，但没有实现类型:Exception.


procedure TYWCSZ.ParamZZDDDBHGetValue(Sender: TObject; var Value: Variant);
begin
  Value:=COMMONUTILS.TCOMMONUTILS.GetAutoIncreaseID(Self.Context,
  TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  Value:=CommonUtils.TCOMMONUTILS.StrToRightLenStr(Variants.VarToStr(Value),'0',10);
end;

在这个业务参数组中还有其他两个自增字段，就没有出错。

请问这个问题可能是哪里出现错误了？如何解决？

zfang

可能是业务参数中的代码没有编译吧

zhanghaifeng

我编译的时候出现错误：
不能隐式转换TAggregate 成为TBaseAggregate。

上一次在你们公司培训也出现这种情况。你们哪里的人把系统函数库中
    lAggregate.Expression := SysUtils.Format('Max(%s)', [AIntField]);
    Result := Integer(ADataSet.CalcAggregate(lAggregate, 0));
删掉了，才没有错误。

请问我这里是不是也要这样呢？

我使用的版本为：3.0.6.2809

jiahaiminghr

重新导入一次  系统空间\系统运行库\系统函数库

zfang

问题怎么样了，楼主？

yancm

楼主请反馈

zfang

该帖先结，有问题请重新开新帖！！