- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]正则下的编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80615)
-- 发布时间：2016/1/27 14:16:00
-- [求助]正则下的编号
老师，
采用正则的判定，如何使编码自动增加，仅仅按照最近一次的就可以，例如
编码 名称
01 业务部
0101 结算部
想要继续增加下一条的时候，先判定最后一条 0101 ，然后在这个基础上 继续增加 1 点击增加的时候是
0101+1=0102
问下老师怎么做
-- 发布时间：2016/1/27 14:40:00
--
MAX(XX) + 1
-- 发布时间：2016/1/27 14:46:00
--
Dim str As String = "0101"
str = str.substring(0,str.length-2) & format(val(right(str, 2))+1, "00")
msgbox(str)
-- 发布时间：2016/1/27 14:51:00
--
老师，
应该放在DataRowAdding 还是在DataColChanging
-- 发布时间：2016/1/27 14:55:00
--
一般都在DataRowAdding事件。
-- 发布时间：2016/1/28 11:52:00
--
红袍老师，
str =dr1(dr("规则列")).Substring(0,count-Len1) & format(dr1(dr("规则列")).Substring(count-Len1,Len1)+1,Len1) ‘这个是数据2 ，实际是想显示成 00两位，怎么搞
-- 发布时间：2016/1/28 11:58:00
--
此主题相关图片如下：qq图片20160128115418.png
想要达到的结果是 030102
-- 发布时间：2016/1/28 11:59:00
--
msgbox("".PadLeft(2,"0"))
-- 发布时间：2016/1/28 12:14:00
--
好用