以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  同一种采购申请号只增加一行，不需要选中多少就增加多少行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130217)
--  作者：有点甜
--  发布时间：2019/1/16 12:13:00
--  

参考

 


Forms("采购单录入").Open()
Dim t As Table = Forms("采购单录入").Controls("订单明细").Table
For Each r As Row In Tables("转采购订单_采购申请明细").GetCheckedRows
    Dim i As Integer = t.FindRow("采购申请号=\'"& r("采购申请号") & "\'")
    If i < 0 Then
        Dim r2 As Row = t.AddNew
        r2("材料编码") = r("材料编码")
        r2("材料描述") = r("材料描述")
        r2("规格型号") = r("规格型号")
        r2("刀具代码") = r("刀具代码")
        r2("采购人") = r("申请人")
        r2("采购日期") =  Date.Today
        r2("部门") = r("线别")
        r2("采购数量") = r("申请数量")
        r2("交货日期") = r("要求交货日期")
        r2("单位") = r("单位")
        r2("采购订单状态") = "进行中"
        r2("采购类型") = r("申请类型")
        r2("采购申请号") = r("采购申请号")
    End If
Next
Forms("采购单录入").Open()
Dim w As Table = Forms("采购单录入").Controls("订单录入").Table
For Each f As Row In Tables("转采购订单_采购申请明细").GetCheckedRows
   
    Dim i As Integer = w.FindRow("采购申请号=\'"& f("采购申请号") & "\'")
    If i < 0 Then
        Dim s2 As Row  = w.AddNew
        s2("采购人") = f("申请人")
        s2("采购日期") =  Date.Today
        s2("部门") = f("线别")
        s2("交货日期") = f("要求交货日期")
        s2("采购类型") = f("申请类型")
        s2("采购申请号") = f("采购申请号")
    End If
Next

 
--  作者：有点甜
--  发布时间：2019/1/16 12:43:00
--  

两个的申请号，不同啊。认认真真对比。

 

不然，实例发上来测试。说明测试步骤和需要的效果。
--  作者：有点甜
--  发布时间：2019/1/16 15:05:00
--  
Forms("采购单录入").Open()
Dim w As Table = Forms("采购单录入").Controls("订单录入").Table
Dim s2 As Row  = w.AddNew
For Each f As Row In Tables("采购合同_采购申请明细").GetCheckedRows
    s2("采购申请号") &= f("采购申请号") & ","
Next
s2("采购申请号") = s2("采购申请号").trim(",")
Forms("采购单录入").Open()
Dim t As Table = Forms("采购单录入").Controls("订单明细").Table
For Each r As Row In Tables("采购合同_采购申请明细").GetCheckedRows
    Dim r2 As Row = t.AddNew
    r2("材料编码") = r("材料编码")
    r2("供应商名称") = r("供应商名称")
    r2("材料描述") = r("材料描述")
    r2("规格型号") = r("规格型号")
    r2("单位") = r("单位")
    r2("采购申请号") = r("采购申请号")
Next