主题：请教一个关于未编写日志的预警思路

甜版，谢谢了

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

点击浏览该文件:管理项目2.foxdb

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)

甜版，谢谢，效果非常好，代码太深奥，我还是没研究透彻，仅仅把message.show()进行了一点设置。真是临到用时才知水平低啊！

甜版，又来请教了，针对这个对未及时编写日志的情况进行预警的代码，我还需要增加一个判断，就是这项工作暂停了，暂时不需要编写报表了，那么就暂时不对这项工作的未编日志进行统计（即监造是否暂停 = true的情况不统计），我在监造日志表中增加了一个逻辑列“监造是否暂停”。不知我该怎样把这个逻辑列放入代码进行判断？下面的代码似乎不起作用。

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 监造是否完成 <> '全部完成' and 监造是否暂停 = False")
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 (监造是否完成 = '全部完成' or 监造是否暂停 = true)") Is Nothing Then
                str &= vbcrlf & s & "  " & DataTables("监造日志").Find("监造流水号 = '" & s & "'")("监理人员") & "   " & d_start
            End If
        End If
    Next
    ls2 = DataTables("监造日志").GetValues("监造流水号","填报日期 = #" & d_start & "# and (监造是否完成 = '全部完成' or 监造是否暂停 = true)")
    For Each s As String In ls2
        If ls1.Contains(s) Then
            ls1.Remove(s)
        End If
    Next
    ls2 = DataTables("监造日志").GetValues("监造流水号","填报日期 = #" & d_start & "# and 监造是否完成 <> '全部完成' and 监造是否暂停 = False")
    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)

感谢甜版，可以实现了