以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断是否周末  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149789)

--  作者:13775189031
--  发布时间:2020/5/12 13:25:00
--  如何判断是否周末
列名称:统计日期   休息日判断
增加行时,自动显示统计日期为今天,能否实现自动判断今天是否周末,如果是周末,自动在“休息日判断”中显示“周末”?

--  作者:shenyl0211
--  发布时间:2020/5/12 13:47:00
--  
帮助文档搜索“星期”
--  作者:有点蓝
--  发布时间:2020/5/12 14:10:00
--  
http://www.foxtable.com/webhelp/topics/0229.htm
--  作者:13775189031
--  发布时间:2020/5/13 8:26:00
--  
If e.DataCol.Name = "考勤日期" Then
    If e.DataRow.IsNull("考勤日期") = True Then
        e.DataRow("星期") = Nothing
    Else
        e.DataRow("星期") = e.DataRow("考勤日期").DayOfWeek
    End If
End If

Dim dr2 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "星期","休息日"
        If dr2("星期") = "Saturday" OrElse dr2("星期") = "Sunday" Then \'如果数量或单价为空
            dr2("休息日") = "休息日"
        Else
            dr2("休息日") = Nothing
        End If
End Select

上面的代码有一个问题,就是列“休息日”没办法修改,例如遇到调休的状况,周末不是休息日,要怎么改代码?

--  作者:有点蓝
--  发布时间:2020/5/13 9:10:00
--  
Case "星期","休息日"
改为
Case "星期"

要专门建一个调休表,记录特殊的日期,然后查表判断是否是休息日