主题：跨表数据导入逻辑字段和锁定行

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("采购单价")

r("已入库")=true

r.Locked=True

Next