- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现特殊格式的自动编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127951)
-- 发布时间：2018/11/26 3:05:00
-- 如何实现特殊格式的自动编号
老师，我想实现实例中的自动编号功能，我的要求是从已有的编号中找出当年的最大编号，当新增项目的时候，实现自动编号（最大编号+1）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
，谢谢！
-- 发布时间：2018/11/26 8:49:00
--
datarowadding事件，写代码
Dim max = e.DataTable.Compute("max(编号)", "编号 like \'%" & Date.Today.year & "%\'")
Dim idx As Integer = 1
If max > "" Then
idx = val(max.Substring(10, 3)) + 1
End If
e.DataRow("编号") = "天平渝投【" & Date.Today.year & "】" & Format(idx, "000") & "号"