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


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

主题：“到期时间” “业绩达标”，逻辑型，已达标和未达标 “提成” “逾期天数”
帅哥哟，离线，有人找我吗？
约翰舒
 小大  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 积分：33957 威望：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 积分：33957 威望：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 [只看该作者]


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