主题：派工怎么实现

比如我有值班表，里面有我每个人的信息，发生任务1时，自动选取值班表中今日值班状态是“值班”的人员，自动将任务派给第一个符合值班这个条件的人，发生任务2时，自动找下一个值班的人，派给他，直到最后一个值班人员，再返回最上面一个人重新开始这个过程，在此同时，自动记录到存档表里，不知道怎么实现，希望各位老师帮忙，谢谢了

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

点击浏览该文件:管理项目1.table

请参考，自动输入的实现： 

这段时间一直在忙，老师说的这个我还是摸不着头脑，本身是新手，能不能帮忙把例子做出来，公司里着急上程序，已经都做出来了，就差这个功能，非常感谢了，着急看下效果再入手开发版，所以谁能给做个试用版的程序，只要实现功能就行，其他的我可以自己做了。

档案表，DataRowAdding事件，代码

 

Dim drs As List(Of DataRow) = DataTables("值班表").Select("今日值班 = '值班'")
Dim lastRow As DataRow = e.DataTable.Find("", "_Identify desc")
Dim idx As Integer = 0
If lastRow IsNot Nothing Then
    For i As Integer = 0 To drs.Count - 1
        If drs(i)("姓名") = lastRow("姓名") Then
            If i <> drs.count - 1 Then
                idx = i+1
            End If
        End If
    Next
End If
msgbox(idx)
e.DataRow("工号") = drs(idx)("工号")
e.DataRow("姓名") = drs(idx)("姓名")