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


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

主题：判断时间
帅哥哟，离线，有人找我吗？
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里面的 处理时间列是放要多久时间才能处理的，判断依据是记录如果小于处理时间的范围他的状态就会变成跟进中(已超时)，但是过了一天，正常的数据都变成已超时，我的代码是不是有点问题

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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里面 因为我状态记录的数据全变成了跟进中(已超时)
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim dr As Row = Tables("Table_3").Current
If dr("状态")="跟进中"
Dim d As Date = Date.Today.adddays(val(e.Form.Controls("TextBox6").text)) 
Dim dt As Date =  format(d,"yyyy-MM-dd 23:59:59")
Dim t As TimeSpan = dt - format(dr("处理时间"))     '计算现在离今天的24时整还差多少时间
e.Form.Controls("Label29").Text = "剩余" & t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒"
Dim Lbl As WinForm.Label = e.Form.Controls("Label29")
If Lbl.ForeColor = Color.Red Then
    Lbl.ForeColor = Color.Black
Else
    Lbl.ForeColor = Color.Red
End If
Else
e.Form.Controls("Label29").text =""
End If 老师这个计时器这个呢
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/9 10:33:00 [显示全部帖子]

我是想dt-记录日期

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


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/9 10:49:00 [显示全部帖子]

Dim dr As Row = Tables("Table_3").Current
If dr("状态")="跟进中"
Dim d As Date = Date.Today.adddays(val(e.Form.Controls("TextBox6").text)) 
Dim dt As Date =  format(d,"yyyy-MM-dd 23:59:59")

Dim t As TimeSpan = dt - cdate(dr("处理时间"))       '计算现在离今天的24时整还差多少时间
e.Form.Controls("Label29").Text = "剩余" & t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒"

Dim Lbl As WinForm.Label = e.Form.Controls("Label29")
If Lbl.ForeColor = Color.Red Then
    Lbl.ForeColor = Color.Black
Else
    Lbl.ForeColor = Color.Red
End If
Else
e.Form.Controls("Label29").text =""
End If
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/9/9 10:50:00 [显示全部帖子]

他说我这里报错了
图片点击可在新窗口打开查看此主题相关图片如下：wechat 圖片_20210909104929.png
图片点击可在新窗口打开查看
 回到顶部
总数 15 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.06445 秒, 5 次数据查询