以文本方式查看主题

-  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=122083)

--  作者:kaituozhe
--  发布时间: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

 

 


--  作者:有点甜
--  发布时间:2018/7/18 17:11:00
--  

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

 

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

 

End If

 

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