With e.Form.Controls("TextBox4") If .Value IsNot Nothing ThenFilter = "名称 Like '" & .Value & " '"End IfEnd With
怎么改成查找 名称列包含TextBox4