Dim dt As DataTable = DataTables("统计表时段人数")
Dim dr As DataRow
For Each r As Row In Tables("排班表").Rows
Dim d1 As Date = r("开始时间")
Dim d2 As Date = r("结束时间")
Do While d1 < d2
'Dim Products As List(Of String)
'Products = DataTables("排班表").GetValues("店面","上班日期 >= #" & d1.Date & "# And 上班日期 <= #" & d2.Date & "#")
Tables("排班表").Filter = "[上班日期] >= #" & d1.Date & "# And [上班日期] <= #" & d2.Date & "#"
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
问题,时段筛选起作用了,不过筛选的出来的数据不对.