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

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)