With e.Form.Controls("收入开始") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "收入 >= '" & .Value & "'" End IfEnd WithWith e.Form.Controls("收入结束")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "收入 <= '" & .Value & "'"
End If
End With