以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  序列号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146510)

--  作者：有点蓝 --  发布时间：2020/2/25 14:38:00 --   旧数据有问题，上面截图的编码后面只有4位，而不是5位，所以max.Substring(4,5)就出错了，先把旧数据都清除掉，或者上面代码改为使用4位序号，不要使用5位

--  作者：有点蓝 --  发布时间：2020/2/25 15:05:00 --   dim bh as string = Tables("产品资料维护_计量单位维护").current("类型小类")   & Tables("产品资料维护_计量单位维护").current("产品类别代码")     If max > "" Then \'如果存在最大编号         idx = CInt(max.Substring(bh.length)) + 1 \'获得最大编号的后三位顺序号,并加1     Else