Select Case e.DataCol.Name
Case "入院日期","出院日期"
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
If tp.TotalDays > 1 Then
dr("住院第二天") = dr("入院日期").AddDays(1)
End If
If tp.TotalDays > 6 Then
dr("住院第七天") = dr("入院日期").AddDays(6)
End If
End If
End Select
上面代码入院日期和出院日期都填写的情况下有效 ，
出院日期尚未填写（病人在院时）时候计算第二天和第七天的代码怎么改，我改了好多次都是错的，麻烦您帮我改一下，谢谢！！！！！
加好友 
发短信
Post By：2015/6/8 23:25:00 [只看该作者]
