Dim nm As String=e.Sender.TextDim tb As Table=Tables("窗口2_Table1")tb.Filter="拼音 like '%" & nm & "%' or 姓名 like '%" & nm & "%'"