以下代码再加上筛选范围 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

类似这段代码，到“生产排产表”查询，然后同样循环判断

Dim drs = dt.Select("设备编码 = '" & pr("使用设备") & "'") '这里改为从“生产排产表”查询
        For Each dr1 As DataRow In drs
            Dim d1 As Date = dr1("异常日期")
            Dim d2 As Date = dr1("计划结束日期")
            Dim d3 As Date = d
            Dim d4 As Date = nr("预计结束日期")
            If d3 <= d1
                If d4 >= d2 Then
                    nr("开始日期") = d2
                    nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                ElseIf d4 >= d1 Then
                    nr("开始日期") = d2
                    nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                End If
            ElseIf d3 <= d2 Then
                If d4 <= d2 Then
                    nr("开始日期") = d2
                    nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                ElseIf d4 >= d2 Then
                    nr("开始日期") = d2
                    nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                End If
            End If
        Next

主题：以下代码再加上筛选范围