If e.Form.Controls("ComboBox1").Text = nothing then Tables("教师课表").Filter = ""Else Tables("教师课表").Filter = "星期 = '" & e.Form.Controls("ComboBox1").Text & "'"End If