Dim Filter As String If e.Form.Controls("招聘人数").Text = "" Then e.Form.Controls("招聘人数").Text = "0" End If If e.Form.Controls("招聘人数1").Text = "" Then e.Form.Controls("招聘人数1").Text = "999999999999" End If Filter = "招聘人数 > = " & e.Form.Controls("招聘人数").Text & " And 招聘人数 < = " & e.Form.Controls("招聘人数1").Text Tables("表A").Filter = Filter