计算天数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计算天数

共有4054人关注过本帖树形打印复制链接主题：计算天数

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/8 21:37:00 [显示全部帖子]

参考

http://www.foxtable.com/help/topics/0260.htm

http://www.foxtable.com/help/topics/1452.htm

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/8 21:57:00 [显示全部帖子]

呃，你的控件，不是绑定列的么？修改了列的值，控件的值就会变了。

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/8 22:06:00 [显示全部帖子]

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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/8 23:40: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(6)
            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 > 6 Then
            dr("住院第七天") = dr("入院日期").AddDays(6)
            'End If
        End If
End Select

下一主题 >> << 上一主题

主题：计算天数