主题：关于自动编号的问题

具体数字要根据供应商代码的长度来确定，根据你的代码，应该是供应商代码的长度加上8.

如果供应商代码长度是变化的，那么将：

 

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

 

改为：

 

  idx = CInt(Right(max,4)) + 1

 

这要就通用了

 

实在搞不定，就将这个表发上来，大家帮你看一下。