参考
Tables("窗口1_Table1").Filter = "第一列 Like '%" & e.Form.Controls("Label1").Text.replace("'", "''") & "%'" ' 筛选出行