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

Select Case e.DataCol.name
    Case "日期"
        Dim dr As DataRow
        If e.oldvalue = Nothing Then
            dr = DataTables("压缩集团气源取气表").Find("日期 = #" & e.newvalue & "#")
        Else
            dr = DataTables("压缩集团气源取气表").Find("日期 = #" & e.OldValue & "#")
        End If
        If dr Is Nothing Then
            dr = DataTables("压缩集团气源取气表").addnew
        End If
        dr("日期") = e.DataRow("日期")
        dr("晋东_省天然气_日累计") = e.DataRow("白泉天然气购入量")
        dr("晋东_晋煤蓝焰_日累计") = e.DataRow("蓝焰煤层气购入量")

    Case "白泉天然气购入量","蓝焰煤层气购入量"
        Dim dr As DataRow = DataTables("压缩集团气源取气表").Find("日期 = #" & e.DataRow("日期") & "#")
        If dr IsNot Nothing Then
            dr("晋东_省天然气_日累计") = e.DataRow("白泉天然气购入量")
            dr("晋东_晋煤蓝焰_日累计") = e.DataRow("蓝焰煤层气购入量")
        End If
End Select

主题：[求助]两表数据同步的问题