主题：如何在下级列表为空返回上级指定名称列表控件中直接自动打开展开下拉列表界面

1、http://www.foxtable.com/webhelp/scr/1523.htm

2、

e.form.Controls("ComboBox1").Select
Sendkeys.Send("{F4}")

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")

Dim obj = e.form.controls("combobox1").basecontrol
msgbox(obj.DroppedDown)

参考

If Tables("表A").Cols("第一列").DroppedDown = True Then