Tables("排班表").ApplyFilter = False '清楚排班表状态
Dim dt As DataTable = DataTables("统计表时段人数")
Dim dr As DataRow
Dim tbl As Table = Tables("排班表")
With e.Form.Controls("开始时间")
If .Value IsNot Nothing Then
tbl.Filter = "上班日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("结束时间")
If .Value IsNot Nothing Then
tbl.Filter = "上班日期 <= #" & .Value & "#"
End If
End With
For Each r As Row In Tables("排班表").Rows
Dim d1 As Date = r("开始时间")
Dim d2 As Date = r("结束时间")
Do While d1 < d2
dr = dt.Find("日期=#" & d1.Date & "# and 时段=" & d1.Hour)
If dr Is Nothing Then
dr = dt.AddNew
dr("日期") = d1.Date
dr("时段") = d1.Hour
End If
dr("人数") = dr("人数") + 1
d1 = d1.AddHours(1)
Loop
Next
加好友 
发短信
Post By：2021/1/29 11:19:00 [只看该作者]
