Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]时间差计算不能自动更新


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

主题：[讨论]时间差计算不能自动更新
帅哥哟，离线，有人找我吗？
benhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		[讨论]时间差计算不能自动更新  发帖心情 Post By：2013/6/29 9:42:00 [显示全部帖子]

时间差计算：加入代码在系统打开后不能自更新天数，只维持第一次填日期时计算出的天数，

是不是Afterload这句有问题，还是放错地方了

在表属性DataColchanged中，
Select Case e.DataCol.name 
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("天数") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("日期"))
            e.DataRow("天数") = Math.Round(tp.TotalDays)
        End If
End Select

在Afterload中加：
DataTables("表A").DataCols("日期").RaiseDataColChanged()
 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		  发帖心情 Post By：2013/6/29 10:28:00 [显示全部帖子]

传个例子，麻烦帮忙看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统-v1.0.rar

[此贴子已经被作者于2013-6-29 10:28:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		  发帖心情 Post By：2013/6/29 10:54:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：a.bmp
图片点击可在新窗口打开查看

可是我这里打开却是不能自动更新，会不会与锁定行有关，还是跟试用版有关
 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		  发帖心情 Post By：2013/6/29 11:16:00 [显示全部帖子]

谢谢。

但还是有一点小疑问：这句不是只要加在表属性的Afterload.事件中就可以了吗。为什么还要加在窗体事件中

DataTables("员工信息管理").DataCols("合同开始日期").RaiseDataColChanged()
 回到顶部
帅哥哟，离线，有人找我吗？
benhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00 		  发帖心情 Post By：2013/6/29 11:26:00 [显示全部帖子]

好的，谢谢您的解答，改天我看再细看一遍

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询