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("")
加好友 
发短信
Post By：2018/6/8 17:00:00 [显示全部帖子]
