有没有办法通过VBA切换组合框的下拉菜单? .Dropdown是一种方法,仅在一个方向上起作用。我正在寻找以下功能:
MyCombo.Dropdown = True
MyCombo.Dropdown = False
Run Code Online (Sandbox Code Playgroud)
显然以上内容在MS Access中不起作用。我猜想我需要为此使用某种hack /解决方法。我想避免.Requery。那可能行得通,但是根据组合框的来源可能会导致重大的性能损失。
我今天正在处理这个问题,经过大量的试验和错误,我发现以下内容在 Access 2010 中运行良好:
With m_cboLookup
.ListWidth = .ListWidth ' Close combo box
'If Len(strSearch) > 3 Then .Dropdown
End With
Run Code Online (Sandbox Code Playgroud)
本质上,您只是将列表宽度设置为现有列表宽度,但组合框已关闭,大概是为了准备以不同大小重绘。
| 归档时间: |
|
| 查看次数: |
6217 次 |
| 最近记录: |