给您的代码增加一层判断,判断焦点即可:
If e.Form.Controls("DropBox1").Focused = True If e.Sender.Gettype.name = "DropDownBox" Then e.Sender.OpenDropDown Tables("窗口2_Table1").Filter = "[第一列] like '%" & e.Sender.Text & "%'" End IfEnd If