以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在下级列表为空返回上级指定名称列表控件中直接自动打开展开下拉列表界面  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106129)

--  作者:zhuya820
--  发布时间:2017/9/2 19:44:00
--  如何在下级列表为空返回上级指定名称列表控件中直接自动打开展开下拉列表界面
如何在下级列表为空返回上级指定名称列表控件中直接自动打开展开下拉列表界面
e.form.Controls("ComboBox列表类别") .Select
如何展开列表
[此贴子已经被作者于2017/9/3 11:51:12编辑过]

--  作者:有点甜
--  发布时间:2017/9/3 12:13:00
--  

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

 

2、

 

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


--  作者:zhuya820
--  发布时间:2017/9/3 17:42:00
--  
    Sendkeys.Send("{F4}")
需要弹出窗口或暂停执行方可弹出列表 

有暂停执行按键N毫秒的代码吗?
[此贴子已经被作者于2017/9/3 17:44:05编辑过]

--  作者:有点甜
--  发布时间:2017/9/3 17:49:00
--  

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

msgbox("10秒后执行")


--  作者:zhuya820
--  发布时间:2017/9/3 19:06:00
--  
如何判定列表控件下拉列表是否打开状态

--  作者:有点甜
--  发布时间:2017/9/3 22:06:00
--  
以下是引用zhuya820在2017/9/3 19:06:00的发言:
如何判定列表控件下拉列表是否打开状态

 

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


--  作者:zhuya820
--  发布时间:2017/9/4 10:02:00
--  
如何判定列表控件下拉列表是否打开状态
--  作者:有点甜
--  发布时间:2017/9/4 10:04:00
--  
以下是引用zhuya820在2017/9/4 10:02:00的发言:
如何判定列表控件下拉列表是否打开状态

 

参考

 

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