以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何根据自动生成编号？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15124)
--  作者：wangliang
--  发布时间：2011/12/13 14:30:00
--  [求助]如何根据自动生成编号？

窗口中的BOPP印刷工艺生产日报表.生产日报表明细中的数据列生产编号，假如输入的生产编号是11121201A01,当按下插入健时，下一行的生产编号变成11121201A02，假如输入的生产编号是11121201B01，当按下插入健时，下一行的生产编号变成11121201B02，再按下变成11121201B03代码怎么写
--  作者：狐狸爸爸
--  发布时间：2011/12/13 14:34:00
--  

1、帖子的标题最好简单描述问题，不要千遍一律都是两个字“求助”。

2、在命令窗口测试下面的代码：

 

Dim s1 As String = "11121201A01"
Dim s2 As String = s1.SubString(s1.Length -2,2)
s2= s1.SubString(0,s1.Length -2) & Format(cint(s2) + 1,"00")
output.show(s2)
--  作者：wangliang
--  发布时间：2011/12/13 14:49:00
--  

其实就是把输入的编号自动+1，不管前面是什么格式的，末两位表示数字，把末两位自动+1