跨表数据导入逻辑字段和锁定行 Post By:2021/10/13 14:08:00 [显示全部帖子]
For Each r As Row In Tables("采购计划明细表").GetCheckedRows Dim 入库明细 As Row = Tables("入库明细表").AddNew Dim 入库主 As Row = Tables("入库主表").Current 入库明细("货物名称") = r("货物名称") 入库明细("规格型号") = r("规格型号") 入库明细("材质") = r("材质") 入库明细("长度") = r("长度") 入库明细("产地") = r("产地") 入库明细("入库数量") = r("采购数量") 入库明细("入库重量") = r("采购重量") 入库明细("入库单价") = r("采购单价") Next