Foxtable(狐表)用户栏目专家坐堂 → 错误提示


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

主题:错误提示

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
错误提示  发帖心情 Post By:2018/7/18 16:44:00 [只看该作者]

一直这样提示是什么原因?

NET Framework 版本:2.0.50727.8831
Foxtable 版本:2018.7.9.1
错误所在事件:表,银行明细,DataColChanged
详细错误信息:
调用的目标发生了异常。
添加或减去的值产生无法表示的 DateTime。

参数名: value

以下银行明细事件中的代码,不知道是原因?

Dim filter1 As String = "日期 >= '"& e.datarow("交易日期").AddDays(-10) & "'and 单据编号 = '" & e.DataRow("出库单号") & "'"
Dim filter2 As String = "日期 >= '"& e.datarow("交易日期").AddDays(-10) & "'and 出库单号 = '" & e.DataRow("出库单号") & "'"
Select Case e.DataCol.name
    Case "出库单号"
        DataTables("商品销售汇总").DataCols("单据编号").RaiseDataColChanged(filter1)
       
       
        'Dim dr As  DataRow = DataTables("货运清单").find(filter2)
        'If dr IsNot Nothing Then
        'msgbox(e.DataRow("交易日期").AddDays(-10))
        DataTables("货运清单").DataCols("出库单号").RaiseDataColChanged(filter2)
        'End If
        Dim dr1 As DataRow = DataTables("货运清单").find(filter2)
        If dr1 IsNot Nothing Then
            e.DataRow("货运单号") = dr1("运单号")
        Else
            e.DataRow("货运单号") = Nothing
        End If
End Select

 

 


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


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

1、你要判断日期值是不是空,如

 

If e.datarow("交易日期") <> Nothing Then

 

End If

 

2、如果日期为空,又要减去10天,就报这种错。


 回到顶部