Dim Filter As String Filter = " 科室='" & e.form.controls("ListBox1").Selectedvalue & "' And 购进科室='" & e.form.controls("ListBox2").Selectedvalue & "' And 标识='" & e.form.controls("ListBox3").Selectedvalue & "'" If Filter > "" Then Tables("窗口1_Table2").Filter = Filter End If