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

       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就无法输入，提示错误！

你为什么要切割它?

我发给你的文件都去掉切割代码了啊. 你这个切割毫无意义啊.     长度为8的字符串你切9位肯定会报错啊!

你为什么要切割它?

我发给你的文件都去掉切割代码了啊. 你这个切割毫无意义啊.     长度为8的字符串你切9位肯定会报错啊!

你们做的，绕弯了。

 

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

点击浏览该文件:复杂自动编号.zip