新增一行,按照【年月日当前时间】自动增加“市场单号”编号,帮忙修改代码,谢谢!
意思就是 编码前面是:年月日时分秒,后面跟一个个位数1-9.当同一秒同时下了两个或以上订单时,后面的个位就自动加1,当这一秒就下了一个订单,后面位数就是1.
Dim r As Row =Tables("市场").Current
Dim max As String
max = DataTables("市场").Compute("Max(市场单号)","下单日期 = #" & Date.Today & "#")
If max = "" Then
max=Format(Date.Now,"yyMMddhhmmss") & “-” & "1"
Else
max = Format(Date.Now,"yyMMddhhmmss") & “-” & CStr(Val(Right(max,1)) + 1) '''.PadLeft(1,"0")
End If
r("市场单号") =max
---------------------------------------------------
想要的效果:
不在同一秒点击出现的应该是:如:140226030122-1 ,140226030236-1 ,... ... 最后一个数字一定是1,就是说,在这一秒,这是新增的第1个订单
在同一秒点击出现的应该是: 如:140226030122-1 ,140226030122-2 ,... ... 就是说在这一秒,这是新增的第1个/第2个订单...