星期问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each r As Row In Tables("表E").rows

Dim d1 As Date = r("开始日期")

Dim d2 As Date = r("结束日期")

Dim 数量 As Double = r("数量") / r("天数")

Dim nr As Row

Do While d1 <= d2

nr = Tables("表F").addnew

nr("产品") = r("产品")

nr("加工日期") = d1

nr("数量") = 数量

d1 = d1.adddays(1)

Loop

上面的代码是生成记录是不管"加工日期"是不是星期六、星期天，

现在需求是生成"加工日期"不是星期六、星期天的记录，或说其"加工日期"是星期六、星期天，数量字段不能有值，后面增生成记录，

如果是星期六往后生成二条、如果是星期天往后生成一条，怎么实现，请老师帮助

主题：星期问题