计划任务 - 溢出

Question

我创建了一个控制台应用程序来运行数据库（大约 22K ）记录并每晚更新一些值。

我已经向自己添加了一封关于任何错误的电子邮件。运行任务时，我收到大约 500 封电子邮件，内容是：

“溢出”（这是由：Exception.Message 返回的内容），

这是什么意思？它通过数据库运行得太快了吗？我该如何解决这个问题？

谢谢你！

这是我的代码：

  For Each dataRow As DataRow In dt.Rows
        curries = 0
        baseDate = Nothing
        sourceID = 0
        isotopeID = 0
        currentCat = 0
        act = 0
        cat = 0
        isoDetails = Nothing
        Try
            If (Not curries = "0") And IsNumeric(curries) Then
                A= dataRow("A")
                B= dataRow("B")
                C= dataRow("C")
                D= dataRow("D")
                act = CalculateActivity(A, B, dataRow("E"))
                cSource.UpdateDB(A, B, dataRow("E"), act, Now())

                isoDetails = cSource.GetLookUpDetails(dataRow("E"))
              cSource.UpdateCategory(sourceID, cat)

            End If
        Catch ex As Exception
            ErrorOnUpdate(sourceID, isotopeID, ex.Message)
        End Try
    Next

.........

Public Function CalculateIsotopeActivity(ByVal curries As Double, ByVal actibityDate As DateTime, ByVal isotope As String) As Double
    'reported activity * e^(-Log(2) * ((now - activity date)/365)/halflife))

    Return curries * Math.E ^ (-Math.Log(2) * (((Now.Date().Subtract(DateTime.Parse(actibityDate)).Days) / 365) / cSource.GetIsotopeLookUpDetails(isotope).HalfLife))

End Function

Answer 1

我猜你的变量之一出现了数学溢出。尝试将变量显式声明为数据类型，然后将数据行中的数据解析为它们。这将清除错误或为您提供更好的错误消息。

Dim curries as Double = 0
...
curries = Double.Parse(datarow("A"))

实际上，我鼓励您通过在代码中添加 Option Strict On 并修复编译器发现的每个错误来消除所有隐式转换。