Select Case e.DataCol.Name
Case "入院时间" , "出院时间"
e.DataRow("天数") = (Date.Today - CDate(e.DataRow("入院时间"))).TotalDays
End If
If e.DataCol.Name = "入院时间" OrElse e.DataCol.Name = "天数" Then
If e.DataRow.IsNull("入院时间") OrElse e.DataRow.IsNull("天数") Then
e.DataRow("今日时间") = Nothing
Else
e.DataRow("今日时间") = e.DataRow("入院时间").AddDays(e.DataRow("天数"))
End If
End If
Dim dr As DataRow = e.DataRow
If dr.IsNull("入院时间") OrElse dr.IsNull("至今出院时间") Then
dr("至今住院天数") = Nothing
Else
Dim tp As TimeSpan = dr("至今出院时间") - dr("入院时间")
dr("至今住院天数") = tp.TotalDays+1
End If
End Select
加好友 
发短信
Post By：2014/7/11 20:05:00 [显示全部帖子]
