以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  “到期时间” “业绩达标”，逻辑型，已达标和未达标 “提成” “逾期天数”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89303)
--  作者：约翰舒
--  发布时间：2016/8/18 19:59:00
--  “到期时间” “业绩达标”，逻辑型，已达标和未达标 “提成” “逾期天数”
例： 一个表中有四列
“到期时间”
“业绩达标”，逻辑型，已达标和未达标
“提成”
“逾期天数”

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

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

老师代码如何编写？
--  作者：czy
--  发布时间：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
--  发布时间：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
--  作者：大红袍
--  发布时间：2016/8/18 20:30:00
--  

 参考

 

http://www.foxtable.com/webhelp/scr/2471.htm

 
--  作者：约翰舒
--  发布时间：2016/8/19 10:42:00
--  
未到期未支付 逾期费为0，这个还不能实现！

比如到期日期为2016.09.10时，当前就是今天2016.08.19，此时未到期，那逾期就不计算显示为0
--  作者：Hyphen
--  发布时间：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
--  作者：约翰舒
--  发布时间：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


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


我想实现的是 ： 用什么动作来筛选出全部红色 或全部黄色的数据？谢谢
--  作者：大红袍
--  发布时间：2016/8/19 14:38:00
--  

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89345&skin=0