- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 各位过路的大神进来看看，项目存在一个自动编号的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31913)
-- 发布时间：2013/4/22 22:56:00
-- [求助] 各位过路的大神进来看看，项目存在一个自动编号的问题
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 |
[此贴子已经被作者于2013-4-22 23:00:47编辑过]
-- 发布时间：2013/4/23 8:07:00
--
帖子不要沉啊，哪位大神帮帮我啊！我琢磨了四五天了，没琢磨透！！！！！！！！！！
-- 发布时间：2013/4/23 8:46:00
--
Dim bh As String =dr("任务单号").substring(0,8)
你这里切了8位。当然永远不会显示第九位了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2013/4/23 9:32:00
--
Bin 神，当 Dim bh As String =dr("任务单号").substring(0,8) 改成 Dim bh As String =dr("任务单号").substring(0,9) 能正常输入项目代号位数为十位数的项目，如2013#-16-1，但是之前个位数的代号就输不进去了，如2013#-2-1就无法输入，提示错误！
-- 发布时间：2013/4/23 9:32:00
--
你为什么要切割它?
-- 发布时间：2013/4/23 9:33:00
--
我发给你的文件都去掉切割代码了啊. 你这个切割毫无意义啊. 长度为8的字符串你切9位肯定会报错啊!
-- 发布时间：2013/4/23 9:34:00
--
以下是引用Bin在2013-4-23 8:46:00的发言：
Dim bh As String =dr("任务单号").substring(0,8)
你这里切了8位。当然永远不会显示第九位了
| 下载信息 [文件大小：412.0 KB 下载次数：2] | |
| 点击浏览该文件:管理项目1.table |
Bin 神，当 Dim bh As String =dr("任务单号").substring(0,8) 改成 Dim bh As String =dr("任务单号").substring(0,9) 后能正常输入项目代号位数为十位数的项目，如2013#-16-1，但是之前个位数的代号就输不进去了，如2013#-2-1就无法输入，提示错误！ |
-- 发布时间：2013/4/23 9:37:00
--
你为什么要切割它? |
此主题相关图片如下：qq截图20130423093639.png
-- 发布时间：2013/4/23 10:14:00
--
以下是引用Bin在2013-4-23 9:37:00的发言：
我发给你的文件都去掉切割代码了啊. 你这个切割毫无意义啊. 长度为8的字符串你切9位肯定会报错啊!
此主题相关图片如下：qq截图20130423093639.png
你为什么要切割它? |
此主题相关图片如下：qq截图20130423093639.png非常感谢Bin神，亲测有效，我要的正是这种格式！非常感谢，非常开心！
-- 发布时间：2013/4/23 10:29:00
--
你们做的，绕弯了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复杂自动编号.zip |
[此贴子已经被作者于2013-4-23 10:33:52编辑过]