主题：自动生成

问题出在这一行：

idx = CInt(max.Substring(4,4)) + 1 '获得最大编号的后三位顺序号,并加1

 

是因为编号的长度没有9位，所以从第5位开始取4位，自然就会出错。

 

如果你的系列的长度是不是固定5位，那么将这行代码为：

 

idx = CInt(max.Substring(max.length -4,4)) + 1

 

先自行检查，搞不定就做个例子发上来。