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

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