主题：自动筛选

 

各位大侠：

我在“窗口1”上增加一个“TextBox1”和一个“订单”表

当“TextBox1”中的输入“上海"时，”订单“表中的“地区”列只要是”上海“的行全部显示

 

类似在文本框中输入上海后，点击筛选按钮，这时地区列中只要是上海的全部筛选出来，不同的是，我不想用按钮

 

谢谢

 

并告诉我代码写在哪里？

 代码写到textChanged事件，代码和查询按钮的代码一样。

在文本框的TextChanged写吧

能否帮我写一下代码

 

谢谢

Tables("表名").Filter= “地区 = ” & e.Form.Controls("TextBox1").Text 

 Tables("表A").Filter = "第一列 Like '%" & e.Sender.Text & "%'"

Tables("表A").Filter = "第一列 Like '%" & e.Sender.Text & "%'"

 

上面代码可以筛选表A，但是“窗口1”中的“表A”没有筛选，能否帮我再修改一下

 

谢谢

tables("窗口1_Table1").Filter= "第一列 Like '%" & e.Sender.Text & "%'"

 

还是不行，提示

 

不存在名为“窗口1_Table1”的Table

 

代码写在TextBox1  的TextChanged内

e.Form.Controls("Table1").Table.Filter= "第一列 Like '%" & e.Sender.Text & "%'"