老师我运行以下代码，会闪退，请帮忙看看哪里出问题了。
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
加好友 
发短信
Post By：2021/7/18 20:23:00 [显示全部帖子]
