[求助]表达式的重置？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表达式的重置？

共有3032人关注过本帖树形打印复制链接主题：[求助]表达式的重置？

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

[求助]表达式的重置？ 发帖心情

Post By：2014/7/11 19:43:00 [只看该作者]

有表A，DataColChanged设置：

If e.DataCol.Name = "入院时间" Then

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

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+1

End If

End Select

[ 至今出院时间]是表达式列，I表达式是：sNull([出院时间],[今日时间])

现在问题是，当输入[出院时间]值时，"至今住院天数"列不能变更，需重置[ 至今出院时间]才可，在帮助中参考“表达式列的特殊性”，对本例的代码还是不知如何写，

请帮我

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

zyqzyy

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

加好友

发短信

等级：四尾狐帖子：822 积分：5885 威望：0 精华：0 注册：2013/7/29 12:00:00

Post By：2014/7/11 20:05:00 [只看该作者]

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

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

zyqzyy

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

加好友

发短信

等级：四尾狐帖子：822 积分：5885 威望：0 精华：0 注册：2013/7/29 12:00:00

Post By：2014/7/11 20:11:00 [只看该作者]

还是给你上个例子，我在中医院工作，多联系！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:出入院时间.foxdb

zyqzyy

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

加好友

发短信

等级：四尾狐帖子：822 积分：5885 威望：0 精华：0 注册：2013/7/29 12:00:00

Post By：2014/7/11 20:16:00 [只看该作者]

还有是今日时间没必要在数据表中单独增加一列，直接用date.today来取值！

你的代码还可以优化一下的。

[此贴子已经被作者于2014-7-11 20:16:52编辑过]

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/7/11 23:08:00 [只看该作者]

谢，我们是同行啊，，你是哪的？我是褔建的

zyqzyy

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

加好友

发短信

等级：四尾狐帖子：822 积分：5885 威望：0 精华：0 注册：2013/7/29 12:00:00

Post By：2014/7/11 23:31:00 [只看该作者]

本人在彩云之南 --- 云南

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/7/27 8:09:00 [只看该作者]

示例:If e.Col.name = "数量" Then

    Dim pr As DataRow = e.DataRow.GetParentRow("订单") '找出对应的父行
    If pr IsNot Nothing Then
        DataTables("订单").DataCols("数量").RaiseDataColChanged(pr) '通知系统此父行的数量列发生了改变,触发DataColChanged事件
    End If
End If

"数量"是父表达式重置,若是对表，又自怎样？是不是这样

Dim pr As DataRow = e.DataRow.GetRow() '找出对应的父行
    If pr IsNot Nothing Then
        DataTables("订单").DataCols("数量").RaiseDataColChanged(pr)  '通知系统此父行的数量列发生了改变,触发DataColChanged事件
    End If
End If