数据相等 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据相等

共有1563人关注过本帖树形打印复制链接主题：数据相等

ntcsm

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：768 威望：0 精华：0 注册：2023/3/19 16:41:00

数据相等

Post By：2023/11/22 16:33:00 [只看该作者]

如何实现表A的数据与表B的数据相同（某几列数据自动相同）

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/11/22 16:34:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1453.htm

ntcsm

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：768 威望：0 精华：0 注册：2023/3/19 16:41:00

Post By：2023/11/22 16:35:00 [只看该作者]

我的情况是修改了才生效，不能实现数据输入或原有数据自动相同

cd_tdh

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2023/11/22 16:41:00 [只看该作者]

重置条件列咯

ntcsm

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：768 威望：0 精华：0 注册：2023/3/19 16:41:00

Post By：2023/11/22 20:02:00 [只看该作者]

我是参照非关联表之间的数据同步进行的，

表B数据修改后表A有显示增加行数据，如果不修改，表A我显示，

表B输入一行新数据表A也不增加，必须是表B内数据修改，表A才数据同步,按例如下进行的修改

Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select