Dim filter As String = "(接单日期>=#" & d & "# And 接单日期<#" & d.AddMonths(1) & "# Or 量房日期>=#" & d & "# And 量房日期<#" & d.AddMonths(1) & "# Or 预收日期>=#" & d & "# And 预收日期<#" & d.AddMonths(1) & "# Or 预签日期>=#" & d & "# And 预签日期<#" & d.AddMonths(1) & "#)and 跟单状态 ='设计部"