Dim d_start As Date = DataTables("监造日志").Compute("min(填报日期)", "填报日期 is not null")
Dim d_end As Date = Date.Today
Dim ls1 As List(Of String) = DataTables("监造日志").GetValues("监造流水号","填报日期 = #" & d_start & "# and 监造是否完成 <> '全部完成'")
d_start = d_start.AddDays(1)
Dim str As String = "没有及时维护监造日志的任务:" & vbcrlf
Do While d_start < d_end
Dim ls2 As List(Of String) = DataTables("监造日志").GetValues("监造流水号","填报日期 = #" & d_start & "#")
For Each s As String In ls1
If ls2.Contains(s) = False Then
If DataTables("监造日志").Find("监造流水号 = '" & s & "' and 监造是否完成 = '全部完成'") Is Nothing Then
str &= vbcrlf & s & " " & DataTables("监造日志").Find("监造流水号 = '" & s & "'")("监理人员") & " " & d_start
End If
End If
Next
ls2 = DataTables("监造日志").GetValues("监造流水号","填报日期 = #" & d_start & "# and 监造是否完成 = '全部完成'")
For Each s As String In ls2
If ls1.Contains(s) Then
ls1.Remove(s)
End If
Next
ls2 = DataTables("监造日志").GetValues("监造流水号","填报日期 = #" & d_start & "# and 监造是否完成 <> '全部完成'")
For Each s As String In ls2
If ls1.Contains(s) = False Then
ls1.Add(s)
End If
Next
d_start = d_start.AddDays(1)
Loop
msgbox(str)