[求助]周期增加订单，（子表） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]周期增加订单，（子表）

共有6403人关注过本帖树形打印复制链接主题：[求助]周期增加订单，（子表）

manyifuwu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

[求助]周期增加订单，（子表） 发帖心情

Post By：2018/6/24 15:40:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:派单.foxdb

希望按条件增加周期订单。感激不尽！

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2018/6/24 21:06:00 [只看该作者]

参考代码，自己举一反三

Dim dt As DataTable = DataTables("派单")
Dim sd As Date = "2018-01-01"
Dim ed As Date = "2018-12-30"
Dim d As Date = sd
Do While d <= ed
    If d.DayOfWeek = 3 Then '星期三
        Dim ndr = dt.addnew
        ndr("日期") = d
        ndr("编号") = "01"
        ndr("户名") = "张三"
    End If
    d = d.AddDays(1)
Loop

manyifuwu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2018/6/25 13:23:00 [只看该作者]

谢谢

小白的我，确实有点难。

manyifuwu

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2018/6/25 13:23:00 [只看该作者]

隔周，和隔一个月，怎么都不对。

manyifuwu

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2018/6/25 13:25:00 [只看该作者]

老师可以麻烦你，在上面的文件里改一哈吗？

manyifuwu

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2018/6/25 13:31:00 [只看该作者]

每月，和隔一月确实没搞懂。。帮帮忙，谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:派单2.foxdb

上来

[此贴子已经被作者于2018/6/25 13:55:48编辑过]

y2287958

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4761 积分：34613 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/6/25 14:01:00 [只看该作者]

上个商业片呗

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/25 14:32:00 [只看该作者]

1、

Dim dt As DataTable = DataTables("派单")
Dim sd As Date = "2018-01-01"
Dim ed As Date = "2018-12-30"
Dim d As Date = sd
Dim idx As Integer = 1
Do While d <= ed
    If d.DayOfWeek = 3 Then '星期三
        If idx Mod 2 = 1 '间隔1周
            Dim ndr = dt.addnew
            ndr("日期") = d
            ndr("编号") = "01"
            ndr("户名") = "张三"
        End If
        idx += 1
    End If
    d = d.AddDays(1)
Loop

2、

Dim dt As DataTable = DataTables("派单")
Dim sd As Date = "2018-01-01"
Dim ed As Date = "2018-12-30"
Dim d As Date = sd
Dim idx As Integer = 1
Do While d <= ed
    If d.Day = 12 Then '12号
        If idx Mod 2 = 1 '间隔1月
            Dim ndr = dt.addnew
            ndr("日期") = d
            ndr("编号") = "01"
            ndr("户名") = "张三"
        End If
        idx += 1
    End If
    d = d.AddDays(1)
Loop

manyifuwu

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2018/6/25 17:54:00 [只看该作者]

未知编辑错误

Dim dt As DataTable = DataTables("派单")

Dim sd As Date = e.Form.Controls("DateTimePicker1").Value

Dim ed As Date = e.Form.Controls("DateTimePicker2").Value

Dim d As Date = sd

Do While d <= ed

If d.DayOfWeek = 3 Then '星期三。。。。（）

Dim ndr = dt.addnew

ndr("日期") = d

ndr("编号") =e.DataRow("编号")

ndr("户名") =e.DataRow("户名")

End If

d = d.AddDays(1)

Loop

其中有一列【星期】可以选择星期几怎么改呢？ If d.DayOfWeek = 3 Then '星期三。。。。（）

红色部分怎么改呢？

[此贴子已经被作者于2018/6/25 18:14:04编辑过]

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/25 18:20:00 [只看该作者]

单独用一列存放数字，如 0,1,2,3,4,5,6 对应星期日、一、二......

然后写代码

Dim dt As DataTable = DataTables("派单")

Dim r as row = tables("表A").current

Dim sd As Date = r("第一列")

Dim ed As Date = r("第二列")

Dim d As Date = sd

Do While d <= ed

If d.DayOfWeek = r("第三列") Then

Dim ndr = dt.addnew

ndr("日期") = d

ndr("编号") =r.DataRow("编号")

ndr("户名") =r.DataRow("户名")

End If

d = d.AddDays(1)

Loop

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：[求助]周期增加订单，（子表）