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