已解决
If e.DataRow("是否停机") = "是" Then
Select Case e.DataCol.name
Case "临时方案_完成时间","影响内容_停机开始日期"
Dim dr12 As DataRow = e.DataRow
If dr12.IsNull("临时方案_完成时间") Or dr12.IsNull("影响内容_停机开始日期") Then
dr12("临时方案_完成时间") = Nothing
Else
Dim tp12 As TimeSpan = dr12("临时方案_完成时间") - dr12("影响内容_停机开始日期")
dr12("临时方案_完成时间") = tp12.TotalHours '真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
Select Case e.DataCol.name
Case "影响内容_停机结束日期","影响内容_停机开始日期"
Dim dr13 As DataRow = e.DataRow
If dr13.IsNull("影响内容_停机结束日期") Or dr13.IsNull("影响内容_停机开始日期") Then
dr13("影响内容_停机时间") = Nothing
Else
Dim tp13 As TimeSpan = dr13("影响内容_停机结束日期") - dr13("影响内容_停机开始日期")
dr13("影响内容_停机时间") = tp13.TotalHours '真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
End If
此主题相关图片如下：1.jpg
[此贴子已经被作者于2022/7/15 13:53:37编辑过]
加好友 
发短信
Post By：2022/7/15 13:49:00 [只看该作者]
