以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教有条件复制新增行记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130173)

--  作者:yetle
--  发布时间:2019/1/15 10:17:00
--  请教有条件复制新增行记录
如图:
图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看
如何写?
[此贴子已经被作者于2019/1/15 10:25:07编辑过]

--  作者:有点甜
--  发布时间:2019/1/15 11:23:00
--  

For Each r As Row In Tables("表A").rows
    For i As Integer = r("开始箱号") To r("结束箱号")
        Dim nr = Tables("表B").addnew
        nr("某列") = r("某列")
        nr("某列") = i
    Next
Next


--  作者:yetle
--  发布时间:2019/1/15 15:09:00
--  
For Each r As Row In Tables("分派工序_table3").rows
    For i As Integer = r("开始箱号") To r("结束箱号")
        Dim nr = Tables("分派工序_table5").addnew
        nr("订单号") = r("订单号")
        nr("制单号") = r("制单号")
        nr("款号") = r("款号")
        nr("尺码") = r("尺码")
        nr("颜色") = r("颜色")
        nr("物供号") = r("物供号")
        nr("箱号") = i
        nr("件数") = r("每箱件数")

    Next
Next

这样写箱号都是对的,只是有个尾箱不知道怎么处理
比如75C的有7箱,前面6箱都是30件,第7箱为尾箱,只有20件,按照上面的写法只能取每箱固定30件,尾箱20件不知道怎么写。

假如件数下面这么写也不对
       If r("尾箱数量") > "0" Then
            nr("件数") = r("尾箱数量")
        Else
           nr("件数") = r("每箱件数")
       End If
[此贴子已经被作者于2019/1/15 15:23:07编辑过]

--  作者:don
--  发布时间:2019/1/15 16:26:00
--  
       If     i =   r("结束箱号")   Andalso  r("尾箱数量") > 0   Then
            nr("件数") = r("尾箱数量")
        Else
           nr("件数") = r("每箱件数")
       End If
[此贴子已经被作者于2019/1/15 16:25:59编辑过]

--  作者:yetle
--  发布时间:2019/1/15 17:20:00
--  
仁兄这么写,尾箱件数>0的每箱件数都变成尾箱件数
--  作者:有点甜
--  发布时间:2019/1/15 17:35:00
--  
For Each r As Row In Tables("分派工序_table3").rows
    For i As Integer = r("开始箱号") To r("结束箱号")
        Dim nr = Tables("分派工序_table5").addnew
        nr("订单号") = r("订单号")
        nr("制单号") = r("制单号")
        nr("款号") = r("款号")
        nr("尺码") = r("尺码")
        nr("颜色") = r("颜色")
        nr("物供号") = r("物供号")
        nr("箱号") = i
        If i = r("结束箱号")   AndAlso  r("尾箱数量") > 0   Then
            nr("件数") = r("尾箱数量")
        Else
            nr("件数") = r("每箱件数")
        End If
       
    Next
Next