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


  共有3036人关注过本帖树形打印复制链接

主题:[求助]表达式的重置?

帅哥哟,离线,有人找我吗?
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
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






 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2014/7/11 23:08:00 [显示全部帖子]

谢,我们是同行啊,,你是哪的?我是褔建的

 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2014/7/27 9:57:00 [显示全部帖子]

本表,写错了,

 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2014/7/27 10:01:00 [显示全部帖子]

什么是对表? 是子表吧?
写错了,是本表,不知本表的表达式是如何写的?

 回到顶部
帅哥哟,离线,有人找我吗?
jk362223
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:2708 威望:0 精华:0 注册:2012/2/10 18:12:00
  发帖心情 Post By:2014/7/27 10:38:00 [显示全部帖子]

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

 回到顶部