主题：自动编号生成

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

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