- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 让两个表指定列同步。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33534)
-- 发布时间：2013/5/20 14:24:00
-- 让两个表指定列同步。
系统的数据录入方式是以窗口为载体，窗口中的控件绑定到入库表的相应列上。
填写好的一行数据储存在入库表中，即为一个入库流水。
而相应的数据，也需要在数据统计里的进料统计表中有相同的一份，怎么样才能做到填写一份入库单而使两个表
都能保存相应数据呢？
此主题相关图片如下：qq截图20130520142324.png
此主题相关图片如下：qq截图20130520142338.png
-- 发布时间：2013/5/20 14:38:00
--
你录入窗口在录入 这个表的时候 同时也录入都另外一个表不就好了.
不就是多了一段一模一样的代码 但是表名不一样而已.
-- 发布时间：2013/5/20 14:43:00
--
不是用代码控制录入的，我是将窗口控件绑定到入库表里的，在录入的时候直接就有数据进入入库表了。
-- 发布时间：2013/5/20 14:49:00
--
改用代码录入不就好了.
-- 发布时间：2013/5/20 14:49:00
--
那就在入库表的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