Dim max As String
max = DataTables("入库明细表").SQLCompute("Max(入库单号)","批号 = '" & sfz & "' ")
Dim idx As Integer
If max > "" Then '如果存在最大单据合同编号
idx = CInt(max.Substring(bh.length,4))+ 1 '获得最大编号的后四位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
Dim ph As String = Right( sfz ,14)
Dim bh As String = "RK" & ph & "-" '生成编号前缀
With Tables("入库明细表") .StopRedraw For Each dr1 As DataRow In DataTables("产品目录").sqlSelect("[停产] = 0 or [停产] is null") .AddNew() .Current("日期") = da .Current("批号") = sfz .Current("产品代码") = dr1("产品代码") .Current("入库单号") = bh & Format(idx,"0000")idx += 1
Next
.ResumeRedraw
End With
加好友 
发短信
Post By：2020/6/1 9:08:00 [显示全部帖子]
