以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  case怎么表达时间段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175532)
--  作者：爱相随
--  发布时间：2022/3/8 19:54:00
--  case怎么表达时间段
老师，假定有一列为“签订日期”列，下列段代码该怎么样修改，请老师指导，谢谢！！
If e.DataCol.Name = "签订日期" Then \'发生变化的是产品编号吗?
    Dim D As Date = e.DataRow("签订日期") 
    Select Case D
        Case D < 2015-01-01
           dr("债务形成时间段") = "2015年1月1日之前举借债务"           
        Case  2015-01-01 <= D >= 2018-08-31
            dr("债务形成时间段") = "2015年1月1日至2018年8月31日之间举借债务"
        Case D < 2018-08-31
            dr("债务形成时间段") = "2018年8月31日之后举借债务"
    End Select
End If
--  作者：有点蓝
--  发布时间：2022/3/8 20:49:00
--  
If e.DataCol.Name = "签订日期" Then \'发生变化的是产品编号吗?
    Dim D As Date = e.DataRow("签订日期") 
    Select Case true
        Case D < cdate("2015-01-01")
           dr("债务形成时间段") = "2015年1月1日之前举借债务"           
        Case  cdate("2015-01-01") <= D andalso D <= cdate("2018-08-31")
            dr("债务形成时间段") = "2015年1月1日至2018年8月31日之间举借债务"
        Case D > cdate("2018-08-31")
            dr("债务形成时间段") = "2018年8月31日之后举借债务"
    End Select
End If