Foxtable(狐表)用户栏目专家坐堂 → 跨表数据导入逻辑字段和锁定行


  共有2507人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
青丘狐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:2645 威望:0 精华:0 注册:2018/11/11 15:52:00
跨表数据导入逻辑字段和锁定行  发帖心情 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

 

跨表数据导入后采购计划明细表的逻辑字段“已入库”显示 入库 和锁定行这么写代码?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 


 回到顶部