此主题相关图片如下:2021-04-08_193737.png

B表,即循环顺序表

此主题相关图片如下:2021-04-08_193745.png

自己搞了很久都没有搞好,请教老师,像要实现这样的功能,其代码应该是怎么样写,谢谢。
If e.DataCol.Name = "N1" Then
If Forms("增加排班").opened()
MessageBox.Show(0)
Dim nf As String=Forms("增加排班").Controls("ComboBox2").value
Dim yf As String=Forms("增加排班").Controls("ComboBox3").value
Dim ts As Integer=Date.DaysInMonth(nf,yf)
If e.DataRow("N1") = "中1" Then
For i As Integer =2 To ts
...........
...........
End If
Next
Next
End If
End If
End If