Foxtable(狐表)用户栏目专家坐堂 → “到期时间” “业绩达标”,逻辑型,已达标和未达标 “提成” “逾期天数”


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

主题:“到期时间” “业绩达标”,逻辑型,已达标和未达标 “提成” “逾期天数”

帅哥哟,离线,有人找我吗?
约翰舒
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:1796 威望:0 精华:0 注册:2016/8/3 15:11:00
“到期时间” “业绩达标”,逻辑型,已达标和未达标 “提成” “逾期天数”  发帖心情 Post By:2016/8/18 19:59:00 [只看该作者]

例: 一个表中有四列
“到期时间”
“业绩达标”,逻辑型,已达标和未达标
“提成”
“逾期天数”

1 到期当天已达标,逾期天数为0
2 到期当天或逾期未达标,逾期天数=当前日期-到期时间

3 未到期已达标,逾期天数为0
4 未到期未达标,逾期天数也为0

老师代码如何编写?

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2016/8/18 20:26:00 [只看该作者]

是不是这个意思?

 

DataColChanged事件代码


Select Case e.DataCol.name
    Case "到期时间","业绩达标"
        If e.DataRow.IsNull("到期时间") = False
            If e.DataRow("业绩达标") = True
                e.DataRow("逾期天数") = 0
            Else
                e.DataRow("逾期天数") = DateDiff("d",e.DataRow("到期时间"),Today)
            End If
        End If
End Select


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2016/8/18 20:28:00 [只看该作者]

楼上似乎不严谨

 

Select Case e.DataCol.name
    Case "到期时间","业绩达标"
        If e.DataRow.IsNull("到期时间") = False
            If e.DataRow("业绩达标") = True
                e.DataRow("逾期天数") = 0
            Else
                e.DataRow("逾期天数") = DateDiff("d",e.DataRow("到期时间"),Today)
            End If
        Else
            e.DataRow("逾期天数") = 0
        End If
End Select


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/18 20:30:00 [只看该作者]


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


加好友 发短信
等级:童狐 帖子:226 积分:1796 威望:0 精华:0 注册:2016/8/3 15:11:00
  发帖心情 Post By:2016/8/19 10:42:00 [只看该作者]

未到期未支付 逾期费为0,这个还不能实现!

比如到期日期为2016.09.10时,当前就是今天2016.08.19,此时未到期,那逾期就不计算显示为0

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/19 10:49:00 [只看该作者]

Select Case e.DataCol.name
    Case "到期时间","业绩达标"
        If e.DataRow.IsNull("到期时间") = False AndAlso e.DataRow("到期时间") > Date.Today
            If e.DataRow("业绩达标") = True
                e.DataRow("逾期天数") = 0
            Else
                e.DataRow("逾期天数") = DateDiff("d",e.DataRow("到期时间"),Today)
            End If
        Else
            e.DataRow("逾期天数") = 0
        End If
End Select

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


加好友 发短信
等级:童狐 帖子:226 积分:1796 威望:0 精华:0 注册:2016/8/3 15:11:00
  发帖心情 Post By:2016/8/19 14:03:00 [只看该作者]

谢谢老师

还有一个问题,就是我在drawcell 中设置了日期的提醒,
If e.col.Name = "到期日期" Then

    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style = "到期"
        End If
    End If
End If


还有,未到期提醒,分别用 红底白字 和 黄底白字 显示


我想实现的是 : 用什么动作来筛选出全部红色 或全部黄色的数据?谢谢


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/19 14:38:00 [只看该作者]


 回到顶部