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

有表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

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

示例: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

本表，写错了，

什么是对表? 是子表吧?

写错了，是本表，不知本表的表达式是如何写的？

查询管理器中，撤销筛选 Tables("订单").ApplyFilter = False ，可在从后台加载的表（初始不加载）无效，要怎样写？

主题：[求助]表达式的重置？