dim r as row =
tables("入库").currentif r is nothing then return
Dim dh As String = Format(d1,"yyyyMMdd") '取得编号的前八位,4位年,2位月,2位日
If r("单号").StartsWith(dh) = False '如果编号的前8位不符
Dim max As String
Dim idx As Integer
max = DataTables("入库").Compute("Max(单号)","日期 = #" & d1 & "# and [_Identify] <> " & r("_Identify")) '取得该天的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则编号等于1
End If
r("单号") = dh & "-" & Format(idx,"000")
End If
加好友 
发短信
Post By：2019/12/19 14:33:00 [显示全部帖子]
