- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求助：单击其中一个COMBOBOX，自动清空所有COMBOBOX代码。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94179)
-- 发布时间：2016/12/17 18:14:00
-- [求助]求助：单击其中一个COMBOBOX，自动清空所有COMBOBOX代码。
查询窗口有三个组合框，分别是对应的是条件1、条件2、条件3和Combobox1、Combobox2、Combobox3，3个条件是或的关系，如何实现：
当单击Combobox1准备选择内容时，清空Combobox2、Combobox3
当单击Combobox2准备选择内容时，清空Combobox1、Combobox3
当单击Combobox3准备选择内容时，清空Combobox1、Combobox2
即不用独立做一个BUTTON清除按钮，只要单击任何一个Combobox输入内容前都自动清除上一次Combobox1、Combobox2、Combobox3所有的内容。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:201612171810.zip |
-- 发布时间：2016/12/18 9:45:00
--
你这样做，是不是有矛盾？你这样做以后，每次，你都只能有一个combobox有值，其余都会被清空的啊。
-- 发布时间：2016/12/18 9:49:00
--
对，每次只要一个combobox有值，其余两个清空。
-- 发布时间：2016/12/18 10:38:00
--
去编写TextChanged事件
systemReady = False
Dim cbxs() As String = {"combobox1","combobox2","combobox3"}
For Each cbx As String In cbxs
If cbx <> e.sender.name Then
e.form.controls(cbx).Text = Nothing
End If
Next
systemReady = True
-- 发布时间：2016/12/18 10:48:00
--
试过，行，谢谢有点色。