Foxtable(狐表)用户栏目专家坐堂 → [求助] 日期递增


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

主题:[求助] 日期递增

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


加好友 发短信
等级:七尾狐 帖子:1629 积分:14390 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] 日期递增  发帖心情 Post By:2018/4/22 15:43:00 [只看该作者]

 老师,如果请假20天,如何使得 “请假日期”  绕过星期六和星期天在星期一到星期五 之间递增? 谢谢!     
       If Forms("请假审批").Opened() Then
            For Each r As Row In Tables("请假审批_table1").Rows
                Dim t As Date = Tables("请假审批_table1").Rows(0)("请假日期")
                If Tables("请假审批_table1").Rows(0).IsNull("请假日期") = False Then
                    For i As Integer = 0 To Tables("请假审批_table1").Rows.Count - 1
                         Tables("请假审批_table1").Rows(i)("请假日期") = t.AddDays(i)
                    Next
                End If
            Next
        End If
[此贴子已经被作者于2018/4/22 15:45:17编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/22 20:36:00 [只看该作者]


 回到顶部