我写了一个自动编号的参数代码如下
procedure TSERIALNUMBERGROUP.ParamNDJHGetValue(Sender: TObject; var Value: Variant);
begin
Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
Value :='NI'+ TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 8);
end;
我把字段设成自动填充这个参数,但在打开预览记录的时候确没有自动填充的值,不知是怎么回事. |