主题：错误提示：未将对象引用设置到对象的实例

我测试也不出错。

TextChanged事件的代码这么改一下看看：

If e.sender.DroppedDown = False
    e.Sender.OpenDropDown
End If
Tables("选择机械_Table1").Filter = "资产编号 Like '*" & e.sender.Text & "*'"

还不行的话，下拉窗口的事件代码逐个删除，看看问题出在哪个事件。