- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于表同步的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69774)
-- 发布时间：2015/6/10 17:00:00
-- 关于表同步的问题
有二个表，分别是BOM，物料管理表
-- 发布时间：2015/6/10 17:04:00
--
http://www.foxtable.com/help/topics/1451.htm
-- 发布时间：2015/6/10 17:14:00
--
http://www.foxtable.com/help/topics/1451.htm
这里没有介绍，两个表针对产品型号列做对比，如果有的话就不增加，没有的话就增加。
-- 发布时间：2015/6/10 17:51:00
--
可以参考这里，用find函数查找是否存在。
看不懂，可以上传例子
http://www.foxtable.com/help/topics/1533.htm
http://www.foxtable.com/help/topics/0680.htm
-- 发布时间：2015/6/10 17:56:00
--
参考
http://www.foxtable.com/help/topics/0680.htm
http://www.foxtable.com/help/topics/1533.htm
-- 发布时间：2015/6/11 15:14:00
--
此主题相关图片如下：qq五笔截图未命名.jpg
谢谢大红袍
看完帮助，基本实现了我的要求，但现在又出现了一个问题，如图片所示，以下代码只是把BOM里的料号复制了过来，可是那几列共用数据我想它自己会填上Textbox上的数据。最终效果如下图。
Dim f As New Filler
f.SourceTable = DataTables("bom") \'指定数据来源
f.SourceCols = "物料编码" \'指定数据来源列
f.DataTable = DataTables("请购单明细") \'指定数据接收表
f.DataCols = "物料编码" \'指定数据接收列
f.Filter= "成品编码 = \'" & mbtname & "\'"
f.ExcludeExistValue=True
f.Fill()
此主题相关图片如下：最终效果.jpg
-- 发布时间：2015/6/11 15:18:00
--
那就必须用下面这种方法，外加上Find函数查找是否重复。
http://www.foxtable.com/help/topics/1533.htm
-- 发布时间：2015/6/11 15:25:00
--
我昨天就想到了find的方法了，可是还是没有吃透。
-- 发布时间：2015/6/11 15:31:00
--
参考代码
Dim Cols1() As String = {"物料编码"}
Dim Cols2() As String = {"物料编码"}
For Each dr1 As DataRow In DataTables("bom").Select("成品编码 = \'" & mbtname & "\'")
If DataTables("请购单明细").Find("物料编码 = \'" & dr1("物料编码") & "\'") Is Nothing Then
Dim dr2 As DataRow = DataTables("请购单明细").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("通知单号") = "123456"
End If
Next
-- 发布时间：2015/6/15 14:38:00
--
大红袍