主题：[求助]时间计算崩溃

看看是不是这个原因：

http://www.foxtable.com/help/topics/1522.htm

搞不定，就设置好代码，将这个表传上来，我们帮你分析一下原因。

小林说得对，最好直接判断列名：

Select Case e.DataCol.name
    Case "完成日期","领取状态"
        If  e.DataRow.IsNull("完成日期") Or e.DataRow("领取状态")="已领取"  Then
            e.DataRow("提示")=Nothing
        Else
            Dim d1 As Date = Date.today
            Dim d2 As Date = e.DataRow("完成日期")
            If d1>d2
                e.DataRow("提示") = -1 * (d1 - d2).Days
            Else
                Dim cnt As Integer = (d2-d1).TotalDays
                For i As Integer = 1 To cnt
                    Dim d3 As Date = d1.adddays(i)
                    If d3.DayOfWeek = 0 OrElse d3.DayOfWeek = 6 Then '如果是星期天或者星期六
                        cnt = cnt - 1
                    End If
                Next
                e.DataRow("提示") = cnt
            End If
        End If
End Select

这样效率高一些，因为你这段代码是完成日期和领取状态发生变化后才执行的，不是任何一列发生变化都执行，不判断列名，就容易死循环，导致死机。

还有:

Select Case e.DataCol.name
    Case "发表日期","实际完成日期"
        If e.DataRow.IsNull("发表日期") And  e.DataRow.IsNull("实际完成日期") Then
            e.DataRow("检测用时")=Nothing
        Else
            Dim d1 As Date = e.DataRow("发表日期")
            Dim d2 As Date = e.DataRow("实际完成日期")
            If d1>d2
                e.DataRow("检测用时") = 0
            Else
                Dim cnt As Integer = (d2-d1).TotalDays
                For i As Integer = 1 To cnt
                    Dim d3 As Date = d1.adddays(i)
                    If d3.DayOfWeek = 0 OrElse d3.DayOfWeek = 6 Then '如果是星期天或者星期六
                        cnt = cnt - 1
                    End If
                Next
                e.DataRow("检测用时") = cnt + 1
            End If
        End If
End Select