以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  保存信息不全  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120163)
--  作者：有点甜
--  发布时间：2018/6/8 15:13:00
--  

1、你的代码那里，就是只添加一行数据和保存一行数据啊。

 

2、如果你要addnew多行，你是不是应该写成循环？
--  作者：有点蓝
--  发布时间：2018/6/8 17:00:00
--  
循环明细表所有行
--  作者：有点蓝
--  发布时间：2018/6/9 8:50:00
--  

For Each cr2 As  Row In Tables("出货信息_出货明细").Rows
    Dim cr1 = Tables("备货明细").AddNew
    cr1("备货状态") = "备货中"
    cr1("业务员") = cr2("业务员")
    cr1("客户编码") = cr2("客户编码")
    cr1("下单日期") = cr2("下单日期")
    cr1("成品编码") = cr2("成品编码")
    cr1("成品描述") = cr2("成品描述")
    cr1("毛坯要求") = cr2("毛坯产地")
    cr1("需备数量") = cr2("当日数量")
    cr1("发货日期") = cr2("发货日期")
    cr1("包装要求") = cr2("包装要求")
    cr1("销售订单号") = cr2("销售订单号")
    cr1("订单要求") = cr2("订单要求")
    cr1("备货日期") = Today()
    cr1.Save
Next
DataTables("出货信息_出货明细").DeleteFor("成品编码 is null")
Tables("备货明细").save
DataTables("出货信息_出货明细").RemoveFor("")