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

表a的1列、2列、3列，同步到表b的4列、5列、6列，用下面的代码，应该怎么改？大师帮忙

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

其他的汉字怎么办？

OK了，谢谢，有点甜，除了这种方法，还有什么同步数据的方法吗？

我两个表中用日期列做 对比列，结果有的日期出现下列报错

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

这句要改吗？

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.DataRow("白泉天然气购入量")
       dr("晋东_晋煤蓝焰_日累计") = e.DataRow("蓝焰煤层气购入量")
      End If
End Select

改了以后提示！！怎么办？

.NET Framework 版本：2.0.50727.8766
Foxtable 版本：2017.12.31.1
错误所在事件：表，晋东公司生产日报，DataColChanged
详细错误信息：
调用的目标发生了异常。
表达式包含无效的日期常量“##”。