Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断时间


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

主题：判断时间
帅哥哟，离线，有人找我吗？
aaa1234
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		判断时间  发帖心情 Post By：2021/9/8 14:18:00 [只看该作者]

老师您好，我想咨询一下我有一列记录日期列和处理时间列这是我的代码If e.DataCol.Name = "记录日期" Then
    If e.DataRow.IsNull("记录日期") = False
        If e.DataRow("记录日期")>  Date.Today.AddDays("-" & val(Tables("table_3").current("处理时间"))) Then
            e.DataRow("状态")="跟进中"
Else
            e.DataRow("状态")="跟进中(已超时)"
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/8 14:20:00 [只看该作者]

这代码是在DataColChanged里面的 处理时间列是放要多久时间才能处理的，判断依据是记录如果小于处理时间的范围他的状态就会变成跟进中(已超时)，但是过了一天，正常的数据都变成已超时，我的代码是不是有点问题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110765 积分：563757 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/8 14:35:00 [只看该作者]

数据不会自己变的。每次打开项目都重置一下"记录日期"列

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/8 14:38:00 [只看该作者]

就是说我的代码没有错，每次打开数据他都会更新一下状态列是吧老师，老师我的代码的意思，如果记录日期小于处理时间就跟进中，没错吧

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110765 积分：563757 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/8 14:48:00 [只看该作者]

If e.DataRow("记录日期")>  Date.Today.AddDays(val(Tables("table_3").current("处理时间")) * -1) Then

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/9 9:22:00 [只看该作者]

If e.DataRow.IsNull("记录日期") = False
        If e.DataRow("记录日期")>  Date.Today.AddDays(val(Tables("table_3").current("处理时间")) * -1) Then
            e.DataRow("状态")="跟进中"
        Else
            e.DataRow("状态")="跟进中(已超时)"
        End If
    End If
老师这个代码是不是不应该放在DataColChanged里面 因为我状态记录的数据全变成了跟进中(已超时)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110765 积分：563757 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/9 9:30:00 [只看该作者]

应该这个取值有问题。所有行都只和"table_3"一行的"处理时间"数据有关？

Tables("table_3").current("处理时间")
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/9 9:38:00 [只看该作者]

不是，我是想读取每一行的处理时间是不是这样
Dim dr As Row = Tables("Table_3").Current
If e.DataRow.IsNull("记录日期") = False
        If e.DataRow("记录日期")>  Date.Today.AddDays(val(dr(处理时间)) * -1) Then
            e.DataRow("状态")="跟进中"
        Else
            e.DataRow("状态")="跟进中(已超时)"
        End If
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/9 9:39:00 [只看该作者]

还是Dim dr As Row = Tables("Table_3").Current
If e.DataRow.IsNull("记录日期") = False
        If e.DataRow("记录日期")>  Date.Today.AddDays(val(e.DataRow("处理时间")) * -1) Then
            e.DataRow("状态")="跟进中"
        Else
            e.DataRow("状态")="跟进中(已超时)"
        End If
    End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110765 积分：563757 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/9 10:09:00 [只看该作者]

If e.DataRow.IsNull("记录日期") = False
        If e.DataRow("记录日期")>  Date.Today.AddDays(val(e.DataRow("处理时间")) * -1) Then
            e.DataRow("状态")="跟进中"
        Else
            e.DataRow("状态")="跟进中(已超时)"
        End If
    End If
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 4 次数据查询