生成采购明细按钮代码:
Dim t As Table = Forms("外贸订单下达").Controls("外购").Table
Dim rs As List(of Row) = Tables("外贸订单下达_订单下达").GetCheckedRows
If rs = 0 Then Return
Dim d As Date =
Dim max As String
Dim idx As Integer
max = t.DataTable.SQLCompute("Max(采购申请号)","申请日期 = '" & rs(0)("下单日期") & "'") '取得该天的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(10,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
Dim bh As String = "CGSQ"& bh & Format(idx,"000")
For Each r As Row In rs
Dim r2 As Row = t.AddNew
r2("采购申请号") = bh
r2("材料编码") = r("成品编码")
r2("材料描述") = r("成品描述")
r2("申请人") = r("业务员")
r2("制单人") = r("业务员")
r2("申请日期") = r("下单日期")
r2("申请数量") = r("订单数量")
r2("要求交货日期") = r("要求交货日期")
r2("需审核人") = "谢磊"
r2("用途") = "销售发货"
r2("订单状态") = "待审核"
r2("销售订单号") = r("销售订单号")
Next
t.save
[此贴子已经被作者于2019/2/16 14:46:19编辑过]
加好友 
发短信
Post By：2019/2/16 14:46:00 [显示全部帖子]
