起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 159|回复: 5

【结帖】自动编号的问题**

[复制链接]
发表于 2008-5-20 16:11:28 | 显示全部楼层 |阅读模式
我写了一个自动编号的参数代码如下
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;
我把字段设成自动填充这个参数,但在打开预览记录的时候确没有自动填充的值,不知是怎么回事.
回复

使用道具 举报

 楼主| 发表于 2008-5-20 16:14:26 | 显示全部楼层

下面是设置自动填充的示意图

如图所示

2.jpg

23.41 KB, 下载次数: 113

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-20 16:19:08 | 显示全部楼层

编号这个字段就是填充的我设置的参数

编号这个字段就是填充的我设置的参数

3.jpg

10.88 KB, 下载次数: 111

回复 支持 反对

使用道具 举报

发表于 2008-5-20 16:22:41 | 显示全部楼层
需用运行起来才可以。代码才会生效。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-20 16:29:40 | 显示全部楼层

OK就是要运行

加入到功能后就能自动生成了,谢谢版主!
回复 支持 反对

使用道具 举报

发表于 2008-5-20 16:30:54 | 显示全部楼层
好的,谢谢反馈。
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-13 07:41 , Processed in 0.045810 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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