Dim dt As DataTable = DataTables("固定_table2")
Dim r As Row = Tables("客户资料").current
Dim sd As Date = r("开始日期")
Dim ed As Date = r("结束日期")
Dim d As Date = sd
Dim idx As Integer = 1
Dim month As Integer = d.Month - 1
Do While d <= ed
If d.Month - month = 1 Then '1月
If d.DayOfWeek =r("周") Then
If idx = r("周期") Then '第几周
output.show(d)
Dim ndr = dt.addnew
ndr("截止日期") = d
ndr("编号") =r.DataRow("编号")
month = d.month
idx = 1
Else
idx += 1
End If
End If
End If
d = d.AddDays(1)
Loop
为什么1、选择日期18年10月至19年12月底,但只能生产18年12月底的订单。 只能添加开始日期当年的订单。??老师以上代码是那出错呢?
[此贴子已经被作者于2018/8/19 18:25:10编辑过]