在textbox1的Leaving事件中设置代码：
if e.Sender.Value IsNot Nothing then
Tables("窗口1_Table1").Filter = "产品 = '" & e.Sender.Value & "'"
End if
加好友 
发短信
Post By：2012/3/30 14:24:00 [显示全部帖子]
