以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 根据数量新增条数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123822) |
-- 作者:有点蓝 -- 发布时间:2018/8/23 20:44:00 -- Forms("转出库单").Open() Dim t As Table = Forms("转出库单").Controls("销售").Table For Each r As Row In Tables("待出库_发货明细").GetCheckedRows If r("实发数量") > 0 Then For i As Integer = 1 To r("实发数量") Dim r2 As Row = t.AddNew r2("下单日期") = r("下单日期") r2("发货日期") = r("发货日期") r2("客户编码") = r("客户编码") r2("销售订单号") = r("销售订单号") r2("成品编码") = r("成品编码") r2("成品描述") = r("成品描述") r2("毛坯产地") = r("毛坯产地") r2("实发数量") = r("实发数量") r2("未交订单数") = r("未交订单数") r2("业务员") = r("业务员") r2("计划确认") = r("计划确认") r2("订单类型") = r("订单类型") r2("当日数量") = r("当日数量") Next End If Next
|