主题：求助：自动同步列的问题

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

表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是否能实现上述功能。请高手指点该如何设置。

可以的，介于本人 水平有限给你 写不了例子 ，但是 自己有做个这个 ，是可以的，就是在表c的datacolchange里写个事件的

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

 

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