Foxtable(狐表)用户栏目专家坐堂 → [求助]跨表数据同步


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

主题:[求助]跨表数据同步

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


加好友 发短信
等级:婴狐 帖子:4 积分:91 威望:0 精华:0 注册:2020/1/9 8:48:00
[求助]跨表数据同步  发帖心情 Post By:2020/1/16 21:12:00 [只看该作者]

 图片点击可在新窗口打开查看图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
"可用库存"的数据自动填入,来源于"block入库",当"入库"为true and "锁定"为false时,将数据添加到"可用库存","锁定"为true时,"可用库存"内对应"block批号"的行删除.

当表"block上料"的"block完全消耗"=true时,"可用库存"内对应"block批号"的行删除.

老师,我应该在哪个表事件写什么样的代码?

新手入门,恳请指导.谢谢

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/17 9:20:00 [只看该作者]

入库表datacolchanged事件
If e.DataCol.name = "入库" Then
    If e.newvalue = True
        Dim dr As DataRow = DataTables("可用库存").addnew
        dr("block批号") = e.DataRow("block批号")
        dr("某列") = e.DataRow("某列")
    End If
ElseIf If e.DataCol.name = "锁定" Then
    If e.newvalue = True
        Dim dr As DataRow = DataTables("可用库存").find("block批号='" & e.DataRow("block批号") & "'")
        If dr IsNot Nothing Then
            dr.Delete
        End If
    End If
End If

表"block上料"datacolchanged用法一样,参考上面自己做

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


加好友 发短信
等级:婴狐 帖子:4 积分:91 威望:0 精华:0 注册:2020/1/9 8:48:00
  发帖心情 Post By:2020/1/17 16:01:00 [只看该作者]

谢谢老师,搞定了.

 回到顶部