同一界面编码只生成同一个 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

生成采购明细按钮代码:

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("销售订单号")

t.save

[此贴子已经被作者于2019/2/16 14:46:19编辑过]

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	同一界面编码只生成同一个 Post By：2019/2/16 13:18:00 [只看该作者] 用户已被锁定

主题：同一界面编码只生成同一个