以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：自动同步列的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62509)
--  作者：吾家细草
--  发布时间：2015/1/3 13:36:00
--  求助：自动同步列的问题

生产任务排定表（表结构如下）

表A生产订单表

产品 编号 规格 订单号 交货日期 单价
自行车 100 26 1 2014.12.30 20
自行车 103 28 2 2014.12.30 30
摩托车 101 25 3 2014.12.30 18
摩托车 102 24 4 2014.12.30 17

表B工分表

产品 加工工段 工分
自行车 车轮 5
自行车 车架 5
自行车 组装 5
自行车 喷漆 5
摩托车 车轮 5
摩托车 车架 5
摩托车 组装 5
摩托车 喷漆 5

表C任务发布表

订单号 产品 规格 加工工段 加工人

欲实现功能：在表C中输入订单号后，“产品”列自动从表A中同步，“加工工段”自动从表B中同步。减少手动输入。

 

订单号 产品 规格 加工工段 加工人
1 自行车 26 车轮 黎明
1 自行车 26 车架 马路
1 自行车 26 组装 张三
1 自行车 26 喷漆 李四

 

 

foxtable是否能实现上述功能。请高手指点该如何设置。
--  作者：wangtf
--  发布时间：2015/1/3 13:48:00
--  
可以的，介于本人 水平有限给你 写不了例子 ，但是 自己有做个这个 ，是可以的，就是在表c的datacolchange里写个事件的
--  作者：有点甜
--  发布时间：2015/1/4 13:04:00
--  

 类似代码，不会做就请上传例子。

 

For Each dr As DataRow In DataTables("表A").Select("订单号 = \'" & 1 & "\'")
    For Each cdr As DataRow In DataTables("表B").Select("订单号 = \'" & dr("产品 ") & "\'")
        Dim ndr As DataRow = DataTables("表C").AddNew
        ndr("产品") = cdr("产品")
    Next
Next