If e.DataRow("运单号").StartsWith(bh) = False '如果编号的前6位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(运单号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
If max > "" Then '如果存在最大编号
msgbox(max) ‘出错的时候看看弹出什么内容
idx = CInt(max.Substring(6,4)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("运单号") = bh & Format(idx,"0000") & _UserName
End If
加好友 
发短信
Post By：2018/6/1 20:06:00 [显示全部帖子]
