以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动生成流水号标签  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103651)
--  作者：benwong2013
--  发布时间：2017/7/13 15:38:00
--  自动生成流水号标签
希望如标签 年份+月份+4位流水号，格式17050001

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

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

17050020
.。。
。。
。。
。。
17050121
--  作者：有点甜
--  发布时间：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