DataTables("经理值班表").DataRows.Clear()
Dim y As Integer = e.Form.Controls("ComboBox1").value
Dim m As Integer = e.Form.Controls("ComboBox2").value
Dim k As String = e.Form.Controls("ComboBox3").value
'Dim days As Integer = Date.DaysInMonth(y,m)
Dim nms() As String = {"张三","李四","王五","陈六","赵七","刘八"}
Dim idx As Integer = Array.IndexOf(nms,k)
Dim jh As New List(of String)
If idx =-1 Then
jh.AddRange(nms)
Else
For i As Integer = idx To nms.Length - 1
jh.Add(nms(i))
Next
For i As Integer = 0 To idx-1
jh.Add(nms(i))
Next
End If
Dim t As Table = Tables("经理值班表窗口_经理值班表")
Dim d As Date = new Date(y,m,1)
Dim d2 As Date = d.AddMonths(1)
Dim r As Row
If d.DayOfWeek <> 0
r = t.AddNew()
End If
Do While d < d2
Dim w As Integer = d.DayOfWeek
If w = 0 Then r = t.AddNew()
r(w) = Format(d.Day,"00") & jh((d.day - 1) Mod 6)
d=d.AddDays(1)
Loop
加好友 
发短信
Post By：2020/3/31 15:04:00 [显示全部帖子]
