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

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

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

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

表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

重置后显示如下，什么情况？

.NET Framework 版本：4.0.30319.18063

Foxtable 版本：2022.8.18.1

错误所在事件：表，表C， DataColChanged

详细错误信息：

Exception has been thrown by the target of an invocation.

Cannot perform '=' operation on System.DateTime and System.String.

谢谢

没能搞好，不知道问题出在哪？

表A 有日期列和数量列

表C有日期列和消耗列

表C同步代码

Select Case e.DataCol.name '非关联表间的数据同步

Case "日期"

Dim dr As DataRow = DataTables("表A").Find("日期 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("表A").AddNew()

dr("日期") = e.DataRow("日期")

dr("数量") = e.DataRow("消耗")

Else

dr("日期") = e.DataRow("日期")

End If

Case "消耗"

Dim dr As DataRow = DataTables("表A").Find("日期 = '" & e.DataRow("日期") & "'")

If dr IsNot Nothing Then

dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

End Select

请指点下，谢谢

没关联

学习：非关联表间的数据同步

谢谢

想法是通过日期列关联，进行同步

想实现表A数量列数据来自表C消耗列数据，

想实现，不管表C消耗列数据是否修改，或增加行，表A数据都自动同步表C

就是表A 日期列内数据等同表C日期列数据

表A数量列数据等同表C消耗列数据

未能实现，请帮忙看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

主题：数据相等