以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]周期增加订单，（子表）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120811)
--  作者：manyifuwu
--  发布时间：2018/6/24 15:40:00
--  [求助]周期增加订单，（子表）
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:派单.foxdb

希望按条件增加周期订单。感激不尽！
--  作者：有点色
--  发布时间：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
--  发布时间：2018/6/25 13:23:00
--  
谢谢
小白的我，确实有点难。
--  作者：manyifuwu
--  发布时间：2018/6/25 13:23:00
--  
隔周，和隔一个月，怎么都不对。
--  作者：manyifuwu
--  发布时间：2018/6/25 13:25:00
--  
老师可以麻烦你，在上面的文件里改一哈吗？
--  作者：manyifuwu
--  发布时间：2018/6/25 13:31:00
--  
每月，和隔一月确实没搞懂。。帮帮忙，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:派单2.foxdb

上来
[此贴子已经被作者于2018/6/25 13:55:48编辑过]
--  作者：y2287958
--  发布时间：2018/6/25 14:01:00
--  
上个商业片呗
--  作者：有点甜
--  发布时间：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
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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