- 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)
-- 发布时间：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
-- 发布时间：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编辑过]
-- 发布时间：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编辑过]
-- 发布时间：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