With e.Form.Controls("走访开始")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "(走访记录1 >= #" & .Value & "# or 走访记录2 >= #" & .Value & "# or 走访记录3 >= #" & .Value & "# or 走访记录2 >= #" & .Value & "# )"
End If
End With
With e.Form.Controls("走访结束")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "(走访记录1 <= #" & .Value & "# or 走访记录2 <= #" & .Value & "# or 走访记录3 <= #" & .Value & "# or 走访记录4 <= #" & .Value & "#)"
End If
End With