Foxtable(狐表)用户栏目专家坐堂 → [求助]两表数据同步的问题


  共有1832人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
liuwei2182
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:378 威望:0 精华:0 注册:2018/2/2 16:20:00
[求助]两表数据同步的问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4632 积分:33804 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/2/7 17:12:00 [只看该作者]

执行时没有日期呗

 回到顶部
帅哥哟,离线,有人找我吗?
liuwei2182
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:378 威望:0 精华:0 注册:2018/2/2 16:20:00
  发帖心情 Post By:2018/2/7 17:17:00 [只看该作者]

不明白,应该怎么修改

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/7 17:26:00 [只看该作者]

 

[此贴子已经被作者于2018/2/7 17:26:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:378 威望:0 精华:0 注册:2018/2/2 16:20:00
  发帖心情 Post By:2018/2/7 17:39:00 [只看该作者]

谢谢,大师

 回到顶部