| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 空值不展开下拉 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76130) |
| -- 作者：联友 -- 发布时间：2015/10/22 10:52:00 -- 空值不展开下拉 如果DropBox1为空时，点击下拉按钮不展开。请指点，谢谢
这个代码没作用 If e.Form.Controls("DropBox1").Value IsNot Nothing Then e.Form.Controls("DropBox1").CloseDropDown() End If [此贴子已经被作者于2015/10/22 11:13:14编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/10/22 11:32:00 -- Enter事件、TextChanged事件
e.Sender.ShowDropDownButton = not (e.Sender.Text = Nothing) |
| -- 作者：联友 -- 发布时间：2015/10/23 9:28:00 -- DropDownBox1是空值时禁止展开 If e.Form.Controls("DropDownBox1").Value IsNot Nothing Then e.Form.Controls("DropDownBox1").OpenDropDown ‘不是空值展开 Else e.Form.Controls("DropDownBox1").DroppedDown ’‘是空值不展开
End If 请指点错在哪里？谢谢 |
| -- 作者：大红袍 -- 发布时间：2015/10/23 9:32:00 -- 不能这样做。只有2楼的方法。 |
| -- 作者：联友 -- 发布时间：2015/10/23 9:38:00 -- 好的，谢谢 |