以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]两表数据同步的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114496)
--  作者：liuwei2182
--  发布时间：2018/2/7 17:05:00
--  [求助]两表数据同步的问题
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
详细错误信息：
调用的目标发生了异常。
表达式包含无效的日期常量“##”。
--  作者：y2287958
--  发布时间：2018/2/7 17:12:00
--  
执行时没有日期呗
--  作者：liuwei2182
--  发布时间：2018/2/7 17:17:00
--  
不明白，应该怎么修改
--  作者：有点甜
--  发布时间：2018/2/7 17:26:00
--  

 

[此贴子已经被作者于2018/2/7 17:26:24编辑过]
--  作者：有点甜
--  发布时间：2018/2/7 17:28:00
--  
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
--  作者：liuwei2182
--  发布时间：2018/2/7 17:39:00
--  
谢谢，大师