Foxtable(狐表) → 用户栏目 → 专家坐堂 → 星期问题


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

主题：星期问题
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8531 威望：0 精华：0 注册：2019/6/13 9:57:00 		星期问题  发帖心情 Post By：2023/2/14 13:21:00 [只看该作者]

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
Next

上面的代码是生成记录是不管"加工日期"是不是星期六、星期天，
现在需求是生成"加工日期"不是星期六、星期天的记录，或说其"加工日期"是星期六、星期天，数量字段不能有值，后面增生成记录，
如果是星期六往后生成二条、如果是星期天往后生成一条，怎么实现，请老师帮助
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/14 13:50:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0229.htm

Do While d1 <= d2
 if d1.DayOfWeek=0 orelse d1.DayOfWeek=6 then
else
nr = Tables("表F").addnew
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8531 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2023/2/14 14:29:00 [只看该作者]

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
        If d1.DayOfWeek = 0 OrElse d1.DayOfWeek = 6 Then
        Else
            nr = Tables("表F").addnew
            nr("产品") = r("产品") 
            nr("加工日期") = d1
            nr("数量") = 数量
            d1 = d1.adddays(1)
        End If
        Loop
    Next

老师，加上执行后，卡了不动
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/14 14:36:00 [只看该作者]

Do While d1 <= d2
        If d1.DayOfWeek = 0 OrElse d1.DayOfWeek = 6 Then
        Else
            nr = Tables("表F").addnew
            nr("产品") = r("产品") 
            nr("加工日期") = d1
            nr("数量") = 数量
        End If
            d1 = d1.adddays(1)
        Loop
    Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询