以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  闪退  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170253)
--  作者：季朝龙
--  发布时间：2021/7/18 20:23:00
--  闪退
老师我运行以下代码，会闪退，请帮忙看看哪里出问题了。

Select Case e.DataCol.Name
    Case "开线时间","电芯_已送料支持时间","电芯_计划送料时间","当前时间","电芯_每次送料时间"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开线时间") Or dr.IsNull("电芯_已送料支持时间") Then
            dr("电芯_计划送料时间") = Nothing
        Else
            Dim dt As Date = dr("开线时间")
            dr("电芯_计划送料时间") = dt.AddSeconds(dr("电芯_已送料支持时间") - dr("电芯_每次送料时间") ) \'注意时段型列是以秒为单位参与计算的
            If dr("电芯_计划送料时间") > dt.AddSeconds(12000) And dr("电芯_计划送料时间") <= dt.AddSeconds(21000)  Then
                dr("电芯_计划送料时间") = dt.AddSeconds(dr("电芯_已送料支持时间") + 3600 - dr("电芯_每次送料时间") )
            Else If dr("电芯_计划送料时间") > dt.AddSeconds(21000) And dr("电芯_计划送料时间") < dt.AddSeconds(36000) Then
                dr("电芯_计划送料时间") = dt.AddSeconds(dr("电芯_已送料支持时间") + 4200 - dr("电芯_每次送料时间") )
            End If
            Dim tp As TimeSpan
            tp = dr("电芯_计划送料时间") - dr("当前时间")
            dr("电芯_剩余送料时间") = tp.TotalSeconds()
        End If
End Select
--  作者：有点蓝
--  发布时间：2021/7/18 21:22:00
--  
Case "开线时间","电芯_已送料支持时间","电芯_计划送料时间","当前时间","电芯_每次送料时间"
各位
Case "开线时间","电芯_已送料支持时间","当前时间","电芯_每次送料时间"