序列号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 序列号

共有3610人关注过本帖树形打印复制链接主题：序列号

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/25 14:38:00 [显示全部帖子]

旧数据有问题，上面截图的编码后面只有4位，而不是5位，所以max.Substring(4,5)就出错了，先把旧数据都清除掉，或者上面代码改为使用4位序号，不要使用5位

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

主题：序列号