主题：[求助] 各位过路的大神进来看看，项目存在一个自动编号的问题

       1.每个项目都有一个固定的编号，例如：[朵古 2013#-0-]，[牛沟 2013#-2-]，[多尔 2013#-4-]。[金河站 2013#-16-]，只是每个项目下的不同产品会有不同的最终编号，最终编号格式为：2013#-X-Y，X是每个项目的代号，Y是在X项目下每个不同产品的代号，Y值依次从1到大。例如：朵古车轮 2013#-0-1，朵古架子 2013#-0-2，朵古铁桶 2013#-0-3，金河站钢管 2013#-16-1，金河站软管 2013#-16-2。
      2.项目是直接从组合框里选择的，而项目下的产品则是自己填写的，根据生产安排。

出现的问题：1.当项目的代号位数为个位数时，能正常按照设定的格式依次从1到大编号，例如：朵古，2013#-0-1。但当项目代号的位数为十位数时，就不能按规定的格式去编号，例如选择永三筒，就会出现：2013#-101，而不是2013#-10-1，选择金河站，就会出现：2013#-161，而不是2013#-16-1。
                  2.想要的编号格式为：2013#-X-Y，例如2013#-1-1，2013#-1-2，.......2013#-1-7。例如2013#-5-1，2013#-5-2，.......2013#-5-12。再例如2013#-16-1，2013#-16-2，.......2013#-16-20。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

帖子不要沉啊，哪位大神帮帮我啊！我琢磨了四五天了，没琢磨透！！！！！！！！！！

Bin 神，当 Dim bh As String =dr("任务单号").substring(0,8)  改成  Dim bh As String =dr("任务单号").substring(0,9) 能正常输入项目代号位数为十位数的项目，如2013#-16-1，但是之前个位数的代号就输不进去了，如2013#-2-1就无法输入，提示错误！

非常感谢LSY大神能抽出时间帮忙，在此表示我崇高的敬意。但是我看你的编号规则是：2013#-0X-00Y，例如2013#-01-001。而我想要的格式是：2013#-X-Y，例如2013#-1-1。能否实现 ？

Bin神，我刚经过反复测试，还是发现一个问题，当最后的尾数到达10的时候就无法递增，一直是10。Bin神，还得劳烦您大驾了，帮帮我！
此主题相关图片如下：1.png

此主题相关图片如下：2.png

呵呵，对，LYS大神说的极是，多谢指点，我把所有这样的不完善的地方都做了修改！！！！