标题：[求助]如何根据自动生成编号？

1楼

wangliang 发表于：2011/12/13 14:30:00

窗口中的BOPP印刷工艺生产日报表.生产日报表明细中的数据列生产编号，假如输入的生产编号是11121201A01,当按下插入健时，下一行的生产编号变成11121201A02，假如输入的生产编号是11121201B01，当按下插入健时，下一行的生产编号变成11121201B02，再按下变成11121201B03代码怎么写

2楼

狐狸爸爸 发表于：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)

3楼

wangliang 发表于：2011/12/13 14:49:00

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

共3 条记录, 每页显示 10 条, 页签: [1]