以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171047)
--  作者：aaa1234
--  发布时间：2021/8/16 8:56:00
--  按钮判断
老师您好，我想问一下如何按一颗跟进中按钮后，然后一按跟进中的按钮，他会判断，如果记录日期跟现在对比，不超过两天，就填入跟进中，超过两天以上就填写已超时
--  作者：aaa1234
--  发布时间：2021/8/16 8:57:00
--  
If e.text="跟进中" Then
If e.Col.Name = "状态" Then
    If e.Row.IsNull("记录日期") = False
        If e.Row("记录日期")<  Date.Today.AddDays(-3) Then
            Tables("Table_3").current("状态")="跟进中(已超时)"
        End If
    End If
End If
End If
--  作者：aaa1234
--  发布时间：2021/8/16 9:00:00
--  
我想的是他按了跟进中的按钮，如果记录时间超过两天就已超时，或者记录的时候是跟进中，到现在已经过了两天，他会自动刷成已超时
--  作者：有点蓝
--  发布时间：2021/8/16 9:15:00
--  
dim r as row = Tables("Table_3").current
if r isnot nothing then
    If r.IsNull("记录日期") = False
        If r("记录日期")>  Date.Today.AddDays(-2) Then
            r("状态")="跟进中"
else
            r("状态")="已超时"
        End If
    End If
end if
--  作者：aaa1234
--  发布时间：2021/8/16 9:26:00
--  
全表周期自动刷新怎么弄
--  作者：aaa1234
--  发布时间：2021/8/16 9:37:00
--  
就是每30秒刷新一下表里面的数据，怕多人使用的时候别人已经保存了数据，这边还没显示出来
--  作者：有点蓝
--  发布时间：2021/8/16 9:42:00
--  
datacolchanged事件

If e.dataCol.Name = "记录日期" Then
    If e.dataRow.IsNull("记录日期") = False
        If e.dataRow("记录日期")>  Date.Today.AddDays(-2) Then
            e.dataRow("状态")="跟进中"
else
            e.dataRow("状态")="已超时"
        End If
    End If
End If

按钮
DataTables("表名").DataCols("记录日期").RaiseDataColChanged("状态 is null or 状态=\'跟进中\'")
[此贴子已经被作者于2021/8/16 9:42:10编辑过]
--  作者：aaa1234
--  发布时间：2021/8/16 9:51:00
--  
不是，老师，就是我是用外部数据源的嘛，我怕就是我在本机已经添加了几条数据，而他人还没看到，所以要30秒刷新一下表
--  作者：有点蓝
--  发布时间：2021/8/16 9:54:00
--  
计划管理：http://www.foxtable.com/webhelp/topics/0657.htm
--  作者：aaa1234
--  发布时间：2021/8/16 9:57:00
--  
还有一个小小的问题就是，老师我是有一个跟进中，已结案，跟已超时，就是如果跟进中大于两天就变成已超时，如果是已结案就不用管，现在我已结案填不了，