主题：让两个表指定列同步。

系统的数据录入方式是以窗口为载体，窗口中的控件绑定到入库表的相应列上。

填写好的一行数据储存在入库表中，即为一个入库流水。

而相应的数据，也需要在数据统计里的进料统计表中有相同的一份，怎么样才能做到填写一份入库单而使两个表

都能保存相应数据呢？

此主题相关图片如下：qq截图20130520142324.png


此主题相关图片如下：qq截图20130520142338.png

你录入窗口在录入 这个表的时候 同时也录入都另外一个表不就好了.

不是用代码控制录入的，我是将窗口控件绑定到入库表里的，在录入的时候直接就有数据进入入库表了。

改用代码录入不就好了.

那就在入库表的DataColChanged 写代码

If e.DataCol.Name = "产品编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("产品").Find("编号 = " & "'" & e.DataRow("产品编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If