主题：[求助]求老师解决，关于排班

 我是一个初学者，“表A” 是通过论坛上的例子做了一个

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:排班.table

此主题相关图片如下：qq截图20170601112058.png

 

想达到以下效果。

此主题相关图片如下：qq截图20170601112352.png

望老师帮助解决。谢谢！

 

 

我QQ邮箱：1218457069@qq.com

Dim frm As winform.Form = Forms("窗口2")
Dim y As Integer = frm.Controls("ComboBox1").value '指定年
Dim m As Integer = frm.Controls("ComboBox2").value '指定月
Dim k As Integer = frm.Controls("ComboBox3").value '指定开始位置
Dim k1 As Integer = frm.Controls("ComboBox4").value '指定开始位置
Dim k2 As Integer = frm.Controls("ComboBox5").value '指定开始位置
Dim days As Integer = Date.DaysInMonth(y,m) '返回指定 年\月 的天数
Dim ed As Date = New Date(y,m,Days)
Dim sd As Date = New Date(y,m,1) '从指定日期开始

Dim zblds As List(Of String) = DataTables("值班领导").GetValues("姓名","姓名 is not null", "_sortkey")
Dim dbzs As List(Of String) = DataTables("带班组").GetValues("姓名","姓名 is not null","_sortkey")
Dim zbrys As List(Of String) = DataTables("值班人员").GetValues("姓名","姓名 is not null","_sortkey")

Dim d As Date = sd
Dim i1 As String = iif(k2=0,1,k2)
Dim i2 As Integer = iif(k1=0,1,k1)
Dim i3 As Integer = iif(k=0, 1, k)
Do While d <= ed
    Dim nr As Row = Tables("表a").AddNew
    nr("日期") = d
    nr("星期") = Format(d, "dddd")
    nr("值班人员") = zbrys(i3-1)
    nr("带班组") = dbzs(i2-1)
    nr("值班领导") = zblds(i1-1)
    d = d.AddDays(1)
    i2 += 1
    i3 += 1
    If i2 > dbzs.count Then
        i2 = 1
    End If
    If i3 > zbrys.count Then
        i3 = 1
    End If
    If d.DayOfWeek = 0 Then
        i1 += 1
    End If
    If i1 > zblds.count Then
        i1 = 1
    End If
Loop

非常感谢 有点色 老师的帮助。

老师，如果指定空2天不安排人(比如节假日不排)该如何实现。代码改怎么写。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:排班.table

 

此主题相关图片如下：qq截图20170606221958.png

 

如何“带班组”本次无人参加值班，此代码执行出错，代码该如何改。麻烦老师了。

谢谢老师

如何让各值班组按天数进行排班，达到如下图效果。

 

求老师，帮助。 

 

此主题相关图片如下：qq截图20170610191328.png

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:排班 (1).table

麻烦大家帮我看看。