共20 条记录, 每页显示 10 条, 页签: [1] [2]

标题：自动编号生成

1楼

woodiy 发表于：2009/7/1 16:46:00

请问如下的自动编号该如何设置代码啊？

GH-0906195
GH-0906196
GH-0906197
GH-0906198
GH-0906199
GH-0906200
GH-0906201
GH-0906202
GH-0906203
GH-0907204
GH-0907205

2楼

yangming 发表于：2009/7/1 16:51:00

你是想一次性增加N行,并按你在窗口输入的第一个编号后再生成吗?,最好上传文件

[此贴子已经被作者于2009-7-1 16:51:06编辑过]

3楼

woodiy 发表于：2009/7/1 17:20:00

不是，是每次增加一行，但是自动编号有日期+数字组成

4楼

狐狸爸爸 发表于：2009/7/1 17:25:00

在DataRowAdding中想办法
判断日期，如果日期和最后一行相同，则编号加1，否则重新开始编号.

5楼

qtcks 发表于：2009/7/1 17:51:00

关于自动编号,在多人使用同一模板时,最好是采取保存后生成自动编号.
否则同一时间多个人同时编辑,会产生相同的编码.
除非编码字段中,包含个人代码.

6楼

qtcks 发表于：2009/7/1 18:51:00

根据给定条件,对编码库匹配.计数后+1

采用自定义函数方式

自定义函数 Nid 'nid 为名称

dim 头 as string=Args(0)'起始头条件
dim 头2 as string=Args(1)'日期条件
dim a as integer = DataTables("表A").Compute("Count(第一列)",("第一列 like'" & 头 &"%'and SubString(第一列,4,4) ='" & 头2 &"'" ))

a=a+1 '没有匹配到数据,a=0,所以,不能在上面的公式后直接+1
'Output.Show(Format(a, "'"& 头 & "-'"& 头2 &"0000'"))
dim nid as string=Format(a, "'"& 头 & "-'"& 头2 &"000'") '000 3位自增位数
Return nid

窗口调用
e.Form.Controls("Label1").Text=Functions.Execute("Nid","GH","0906")