第一天值班人员，自动显示为上个月的最后一天值班人员的后一天值班人员，这个代码应该如何写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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))

For i As Integer = 0 To idx-1

jh.Add(nms(i))

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

以上是用按钮生成的值班表代码；

求：

“经理值班表窗口”打开后，

1、自动显示“当前月份的日历布局”；

2、且第一天值班人员，自动显示为上个月的最后一天值班人员的后一天值班人员，这个代码应该如何写？

1、点击绿色按钮后，弹出错误窗口，是“用DrawCell方法的红色，标记出当天所在的单元格，”？

此主题相关图片如下：111122222.png

2、您上面提供的代码，我带入到窗口的AfterLoad事件后，但是进入下个月后，第一个值班名字还是没有变成“上个月的最后一人的下一个”？

具体测试步骤是：

先确认本月最后一人名字，

再将电脑的日期修改为下月第一天。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:值班表cs1.foxdb

2/如何提取？

能直接在上传的项目中修改吗？

话说，真心不会呢！

1、标记单元格颜色是没问题了，但是，每次打开值班表窗口后，都会出现一个蓝色背景的单元格，这个颜色怎么去掉？或者，直接定位到当前日期的单元格中？

此主题相关图片如下：1221.png

2、提取上个月最末一人的信息，代码写入后，本月初第一人的信息居然和上个月同名？

求指正？

最好是直接在项目中修改上传？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:值班表cs2.foxdb

主题：第一天值班人员，自动显示为上个月的最后一天值班人员的后一天值班人员，这个代码应该如何写？