[求助]跨表数据同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4017人关注过本帖树形打印复制链接主题：[求助]跨表数据同步

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

等级：超级版主帖子：110443 积分：562081 威望：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

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

i12cu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：4 积分：91 威望：0 精华：0 注册：2020/1/9 8:48:00

Post By：2020/1/17 16:01:00 [只看该作者]

谢谢老师,搞定了.

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