组合框自动展开的列表数据用过后自动缩回问题

wang1950317

各位老师：下面这段代码来自一点通老师组合框行来源自筛选讲座中的
我的问题是，在最后一句展开组合框列表数据后添上什么样的代码能使展开的列表数据使用后再自动缩回去?
因为使用时展开的列表数据遮挡住下方的需要输入数据的文本框，需要鼠标在其他地方点击一下才能自动缩回，有些不太方便。 谢谢指点！

Private Sub 生产单位_Change()  '组合框的更改后事件
    Me.列表142.SetFocus     '先将焦点移到别的控件上
    Me.生产单位.Requery     '更新组合框的源数据
    Me.生产单位.SetFocus    '然后再将焦点返回到原组合框
    If Nz(生产单位) <> "" Then Me.生产单位.SelStart = Len(Me.生产单位) '如果组合框有数据时将焦点移到字符的后面
    Me.生产单位.Dropdown   '展开组合框的列表数据

End Sub

kokolc

关注！

tmtony

自动弹开是方便你选择,你选择后自动会关闭,但如果你不选择,程序帮你收缩, 那就失去意义了
其它你要到下一个字段,虽然是遮住了下面字段,但只要回车就可以啊

wang1950317

谢谢版主指点。自动展开列表数据后，必须使用鼠标单击所需条目，该条目即自动显示在组合框内。此时放下鼠标或使用另一只手完成回车或者使用鼠标在其他地方单击可以使之回缩，但总感到有些别扭。我以为加上一句什么代码，就可以在我们使用鼠标单击所需条目，该条目在组合框自动显示的同时关闭组合框的展开部分。如果这样的效果无法做到，那也是一个最终答案，谢谢啦！

huangxiuwen

关注............................