Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "手术开始时间","手术结束时间"
If e.DataRow.IsNull("手术开始时间") Or e.DataRow.IsNull("手术结束时间")
dr("手术持续时间") = Nothing
Else
Dim s As TimeSpan = dr("手术结束时间") - dr("手术开始时间")
dr("手术持续时间") = s.TotalMinutes
End If
Case "麻醉开始时间","麻醉结束时间"
If e.DataRow.IsNull("麻醉开始时间") Or e.DataRow.Isnull("麻醉结束时间")
dr("麻醉持续时间") = Nothing
Else
Dim s1 As TimeSpan = dr("麻醉开始时间") - dr("麻醉结束时间")
dr("麻醉持续时间") = s1.TotalMinutes
End If
Case "手术开始时间"
If e.DataRow.IsNull("手术开始时间") Then
dr("手术日期") = Nothing
Else
dr("手术日期") = Format( dr("手术开始时间"),"yyyy-MM-dd")
End If
End Select
[此贴子已经被作者于2021/11/9 17:28:50编辑过]
加好友 
发短信
Post By：2021/11/9 17:22:00 [显示全部帖子]
