TextChanged事件
Dim cjsx As WinForm.TextBox = e.Form.Controls("厂家筛选")Tables("玻璃入库维护_Table1").Filter = "供货厂家 like '*" & cjsx.Text & "*'"