- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 计算日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71771)
-- 发布时间：2015/7/17 17:55:00
-- 计算日期
如下代码中，填写“入境日期“时都正确计算，但是退出再打开时计算”第七天“的列变为空
此主题相关图片如下：aaaaa.png
-- 发布时间：2015/7/17 17:55:00
--
请问咋哪儿有问题？
-- 发布时间：2015/7/17 17:56:00
--
Select Case e.DataCol.Name
Case "入径日期","出院日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("入院日期") OrElse dr.IsNull("出院日期") Then
dr("住院天数") = Nothing
If dr.IsNull("入径日期") = False Then
dr("入院第二天") = dr("入径日期").AddDays(1)
dr("入院第三天") = dr("入径日期").AddDays(2)
dr("入院第七天") = dr("入径日期").AddDays(6)
dr("入院第八天") = dr("入径日期").AddDays(7)
End If
Else
Dim tp As TimeSpan = dr("出院日期") - dr("入院日期")
dr("住院天数") = tp.TotalDays
\'If tp.TotalDays > 1 Then
dr("入院第二天") = dr("入径日期").AddDays(1)
\'End If
\'If tp.TotalDays > 2 Then
dr("入院第三天") = dr("入径日期").AddDays(2)
\'End If
\'If tp.TotalDays > 2 Then
dr("入院第七天") = dr("入径日期").AddDays(6)
\'End If
\'If tp.TotalDays > 7 Then
dr("入院第八天") = dr("入径日期").AddDays(7)
\'End If
\'If tp.TotalDays > 7 Then
End If
End Select
-- 发布时间：2015/7/17 17:59:00
--
http://www.foxtable.com/help/topics/1380.htm