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编辑过]
加好友 
发短信
Post By：2018/6/25 18:40:00 [只看该作者]
