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
以上是用按钮生成的值班表代码；
求：“经理值班表窗口”打开后，
1、自动显示“当前月份的日历布局”；
2、且第一天值班人员，自动显示为上个月的最后一天值班人员的后一天值班人员，这个代码应该如何写？
加好友 
发短信
Post By：2020/3/31 10:50:00 [只看该作者]
