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("结束时间")
Dim dx1 As String = r("员工姓名")
Do While d1 < d2
dr = dt.Find("日期=#" & d1.Date & "# and 时段=" & d1.Hour & "and 姓名=" & dx1)
If dr Is Nothing Then
dr = dt.AddNew
dr("日期") = d1.Date
dr("时段") = d1.Hour
dr("姓名") = dx1
End If
d1 = d1.AddHours(1)
Loop
Next
统计每个时段都有哪些员工上班.
报错内容
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:窗口,时段人数明细,查询,Click
详细错误信息:
未找到列 [艾明]。