Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim r As Integer = d.day
Dim bh As String = "A-ZSH" & rklb.text & kwlb.text & Format(d,"yyyyMMdd") '生成编号的前6位,4位年,2位月.
Dim max,max2 As String
Dim idx As Integer
max = DataTables("扫描配货明细").SQLCompute("Max(收货单号)","收货单号 like '" & bh & "%'")
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(bh.length)) + 1 '获得最大编号的后五位顺序号,并加1
Else
max2 = DataTables("工单明细").SQLCompute("Max(收货单号)","收货单号 like '" & bh & "%'")
If max2 > "" Then
idx = CInt(max2.Substring(bh.length)) + 1 '获得最大编号的后五位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
End If
请看看红色的代码是否有问题?
加好友 
发短信
Post By：2017/3/1 19:54:00 [只看该作者]
