以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 自动编号 错误提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20681)
--  作者：狐狸爸爸
--  发布时间：2012/6/15 18:03:00
--  

问题可能出在这里：

 

 idx = CInt(max.Substring(12,3)) + 1 \'获得最大单据编号的后四位顺序号,并加1

 

好好看看：

 

http://www.foxtable.com/help/topics/2403.htm

 
--  作者：ksyh518
--  发布时间：2012/6/15 18:54:00
--  自动编号错误

呵呵：请看一下

   1、Dim bh As String = e.DataRow("类别") & Format(d,"yyyyMMdd") & "-" \'生成编号的前缀
   2、idx = CInt(max.Substring(12,3)) + 1 \'获得最大单据编号的后四位顺序号,并加1

 

第1条中的编号前缀的字符数与第2条中的12个字符不相等了哈，

注：（12，3）应改为（类别4位、日期8位、一个“-”，就是13位了。