Tables("项目总表").Filter = "[数据库名] = '" & e.Form.Controls("数据库名").Value & "' Or [表名] = '" & e.Form.Controls("表名").Value & "'"