意思是选中谁，谁就从1号开始值班？您的问题和您的描述完全不是一码事
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
Tables("经理值班表窗口_经理值班表").AddNew()
For d As Integer = 1 To days
Dim v As Date = new Date(y,m,d)
Dim w As Integer = v.DayOfWeek
Tables("经理值班表窗口_经理值班表").Current(w) = Format(d,"00") & " " & jh(((d - 1) Mod 6))
If w = 6 Then
Tables("经理值班表窗口_经理值班表").AddNew()
End If
Next
加好友 
发短信
Post By：2020/3/28 9:39:00 [显示全部帖子]
