[请求]自动填充没起作用**

lity

http://bbs.justep.com/forum.php?mod=viewthread&tid=21363


想将编号自动填充为年月日+随机两位数 , 做的业务参数组
代码:

procedure TYWCSZ.ParamBHGetValue(Sender: TObject; var Value: Variant);
var
  sDate: String;
begin
    sDate := SysUtils.FormatDateTime('yyyy/mm/dd',SysUtils.Date);
    Value := TCommonUtils.GetAutoIncreaseID(Self.Context,TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  { 可根据需要定制Value的格式 }
  Value := sDate+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 2);
end;


然后编号自动填充,可是,在表格中的编号并没有自动填充,请帮忙分析下原因???
谢谢

jiahaiminghr

把功能运行起来后，填充应该有效吧！