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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动生成流水号标签

共有1586人关注过本帖树形打印复制链接主题：自动生成流水号标签

benwong2013

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

等级：一尾狐帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00

自动生成流水号标签 发帖心情

Post By：2017/7/13 15:38:00 [只看该作者]

希望如标签年份+月份+4位流水号，格式17050001

希望在输入开始的流水号和结束的流水号，能在表A的编号列将所有的编号列出，请问这个代码如何处理？

比如开始为0020，结束为0121，那么流水号成方式为：

17050020

.。。

。。

17050121

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/13 16:06:00 [只看该作者]

参考

For i As Integer = 20 To 121
Dim ndr As DataRow = DataTables("表a").AddNew
ndr("第二列") = format(Date.today, "yyMM") & format(i, "0000")
Next

主题：自动生成流水号标签