起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 110|回复: 1

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

[复制链接]
发表于 2008-2-25 13:51:59 | 显示全部楼层 |阅读模式
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;


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

使用道具 举报

发表于 2008-2-25 13:53:50 | 显示全部楼层
把功能运行起来后,填充应该有效吧!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-7 23:29 , Processed in 0.039598 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表