以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表数据导入逻辑字段和锁定行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172448)
--  作者：青丘狐
--  发布时间：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

 

跨表数据导入后采购计划明细表的逻辑字段“已入库”显示 入库 和锁定行这么写代码？
--  作者：有点蓝
--  发布时间：2021/10/13 14:10: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("采购单价")

r("已入库")=true

r.Locked=True

Next