Dim a As Integer = 1
Dim lst As New list(Of String)
Dim ps As list(Of String) = DataTables("订单").getvalues("单号", "包装=6 and 单号 is not null")
Dim s As String
If ps.count > 0 AndAlso ps.count < 50 Then
s = ps(0)
Dim x As Integer = CInt(s.substring(s.length - 2))
If x > 50 OrElse x <= 0 Then
a = 51
End If
Dim p As String = s.substring(0, 4)
Dim k As Integer = CInt(s.substring(4, 1) & format(a, "00"))
For i As Integer = k To k + 49
s = p & format(i, "000")
If ps.contains(s) = False Then lst.add(s)
Next
End If
Output.Show("缺失单号")
For Each s1 As String In lst
Output.Show(s1)
Next
加好友 
发短信
Post By：2024/1/15 10:41:00 [显示全部帖子]
