Dim txt As String = e.Form.Controls("ComboBox1").Text Dim tbl As Table = Tables("核酸检测_table1") If txt = "" Then tbl.Filter = "" Else txt = "'%" & txt & "%'" tbl.Filter = "班级 Like " & txt & " " Tables("核酸检测_table1").DataTable.ReplaceFor("_locked", False, "") End If