Tables("班级.学生表").Filter = "学生名 Like '*" & e.Sender.text & "*'"
If Tables("班级.学生表").Rows.Count = 0 Then Tables("班级.学生表.家长表").Filter = "家长名 Like '*" & e.Sender.text & "*'"
End If