主题：自动编号生成

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

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

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

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

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

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

根据给定条件,对编码库匹配.计数后+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")

此主题相关图片如下：新id.jpg


此主题相关图片如下：条件匹配新增id.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动编号.rar

谢，我顶

我做的增加二列辅助列

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的自动编号.table

自已的用法 （不管多少人用，不会重复） 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

越来越牛了