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

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

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

计算天数

Post By：2015/6/8 21:33:00 [只看该作者]

表的数据窗口添加如图

窗口控件上分别有入院日期，住院第二天，住院第三天，住院第七天，出院日期，住院天数等控件，其中入院日期和出院日期手工录入，其他三个控件自动添加日期和住院天数，请问大师这些控件的代码，谢谢！！！

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/6/8 21:34:00 [只看该作者]

图

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/6/8 21:35:00 [只看该作者]

此主题相关图片如下：qq图片20150608212658.png

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/6/8 21:54:00 [只看该作者]

DataColChanged事件中加入下面的代码：

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
        End If
End Select

如果窗口中的“住院天数”控件上写代码的话，在那个事件中写？

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/6/8 21:55: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

End If

End Select

大红袍

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

加好友

发短信

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

Post By：2015/6/8 21:57:00 [只看该作者]

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/6/8 21:58:00 [只看该作者]

我的例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/6/8 23:10:00 [只看该作者]

非常感谢！！

出院日期尚未填写（病人在院时）时候第二天和第七天怎么算，上面代码入院日期和出院日期都填写的情况下有效，

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

总数 15 1 2 下一页

主题：计算天数