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

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("5") = e.DataRow("1")
            dr("6") = e.DataRow("2")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "1","2"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        If dr IsNot Nothing Then
            dr("5") = e.DataRow("1")
            dr("6") = e.DataRow("2")
        End If
End Select

 你两个表，必须根据编号列进行对比，你两个表都要有一个编号列。

看懂代码，要多少列，那就复制拷贝多少行。

 

初学者，把视频教程看一下 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

 

如果要实时同步，必须用2楼的方法。

 

如果是父子表的情况，你可以直接引用父表数据

 

http://www.foxtable.com/webhelp/scr/0091.htm

 

http://www.foxtable.com/webhelp/scr/0106.htm

 

Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")

 

改成

 

Dim dr As DataRow = DataTables("库存").Find("产品编号 = #" & e.DataRow("产品编号") & "#")

一样，要改

 

Dim dr As DataRow = DataTables("压缩集团气源取气表").Find("日期 = #" & e.OldValue & "#")

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