以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：数据同步更新（表A至表B单向更新）的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77296)
--  作者：fjndwdx
--  发布时间：2015/11/15 19:23:00
--  求助：数据同步更新（表A至表B单向更新）的问题
表A和表B，通过判断表A和表B第一列数据是否一样，若一样则表B更新第三列和第五列数据；若不一样则表B不更新数据，表A在第六列提示‘找不到匹配数据’。
[此贴子已经被作者于2015/11/15 19:25:55编辑过]
--  作者：大红袍
--  发布时间：2015/11/15 19:48:00
--  

参考

 

http://www.foxtable.com/help/topics/1451.htm

 
--  作者：fjndwdx
--  发布时间：2015/11/15 21:31:00
--  回复：（大红袍）参考 http://www.foxtable....

再次描述，已知表B已有相关的数据，在合并表A数时，满足表A和表B某一列数据一样情况下，将表B其他列的数据替换成表A的数据。
--  作者：大红袍
--  发布时间：2015/11/15 21:48:00
--  
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").Find("第一列 = \'" & dr1("第一列") & "\'")
    If dr2 Is Nothing Then dr2 = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
--  作者：fjndwdx
--  发布时间：2015/11/15 21:50:00
--  
袍老师，你给的参考是输入或合并数据时，能同步关联到其他表的相关数据，我现在想问的是：输入或合并数据时，能同步修改其他表的相关数据。相参考有点相反。
--  作者：大红袍
--  发布时间：2015/11/15 21:51:00
--  

呃，不会做，就上传实例。