以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  扣减周六、周日  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101254)

--  作者：zhangning --  发布时间：2017/5/27 11:28:00 --  扣减周六、周日 老师，我想要在以下代码中加入： 如果 dr13("子集结日") 是周天，就需要再减去2天，请问老师，这样如何写呢？ Dim dr13 As DataRow = e.DataRow         If dr13.IsNull("部组名") = False AndAlso dr13.IsNull("部品ID") = True             dr13("子集结日") = dr13("第1序_配膳日").AddDays(-1)         End If

--  作者：有点蓝 --  发布时间：2017/5/27 11:54:00 --   Dim dr13 As DataRow = e.DataRow If dr13.IsNull("部组名") = False AndAlso dr13.IsNull("部品ID") = True     Dim d As Date =  dr13("子集结日")     If d.DayOfWeek = 0 Then         dr13("子集结日") = dr13("第1序_配膳日").AddDays(-3)     Else         dr13("子集结日") = dr13("第1序_配膳日").AddDays(-1)     End If End If

--  作者：zhangning --  发布时间：2017/5/27 13:45:00 --   谢谢老师