1、
Dim dt As DataTable = DataTables("派单")
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
Do While d <= ed
If d.DayOfWeek = r("周") Then
If idx Mod 5 = r ("间隔几周") '间隔3周:这个周期列是显示间隔几周, 5 需要怎么改呢???????
Dim ndr = dt.addnew
ndr("日期") = d
ndr("编号") =r.DataRow("编号")
ndr("户名") =r.DataRow("户名")
End If
idx += 1
End If
d = d.AddDays(1)
Loop
If idx Mod 5 = r ("间隔几周") '间隔3周:这个周期列是显示间隔几周, 5 需要怎么改呢???????
2、
希望能自动增加,合同期内每月第几周的星期几。列如:1、每月第一个周星期二。2、或每月第二个星期三。
感谢!!
[此贴子已经被作者于2018/6/26 14:06:51编辑过]