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

麻烦大家帮我看下，下面这段代码哪里出问题了，每次当这段代码运行的时候fotable就崩溃，系统自动关闭了~

 

 

 

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

 

在清理数据的时候也发现了一个问题，在委托信息的表上，剩下的这些信息在清楚的时候，foxtable也会崩溃直接关闭，委托信息表的提示列也是有计算的，这个在计算的时候也会崩溃，检测项目汇总里的检测用时在计算的时候也是会崩溃直接关闭，麻烦狐爸帮我看看这个粗略的表是怎么回事~~

这个是第一次用foxtable做数据管理，麻烦狐爸帮我看看还有没其他问题~~谢谢啦！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:业务管理系统.zip

qqq

其实我不是很懂应该在哪里修改代码，麻烦你说下我改怎么改好吗？谢谢啦！

可以运行了，谢谢各位老师的指教~