Dim t As Table = e.Form.Controls("Table1").Table
t.Filter = "第一列 like '%" & e.Form.Controls("TextBox1").Text & "%'"