以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何清空combobox的text  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138902)

--  作者:atiwhl
--  发布时间:2019/8/4 0:53:00
--  [求助]如何清空combobox的text
我在combobox控件的TextChanged,写了以下代码,红色部分不起作用
With Forms("新增单位").Controls("单位性质_ComboBox")
Dim cmb2 As WinForm.ComboBox
Dim cmb3 As WinForm.ComboBox
    If .text = "事业" Then
        cmb2 = Forms("新增单位").Controls("事业单位类型_ComboBox")
        cmb2.ComboList = DataTables("基础数据表1").GetComboListString("事业单位类型")
        cmb3 = Forms("新增单位").Controls("事业单位行业_ComboBox")
        cmb3.ComboList = DataTables("基础数据表1").GetComboListString("事业单位行业")
    Else
        cmb2 = Forms("新增单位").Controls("事业单位类型_ComboBox")
        cmb2.ComboList = Nothing
        cmb2.text = Nothing
        cmb3 = Forms("新增单位").Controls("事业单位行业_ComboBox")
        cmb3.ComboList =  Nothing
        cmb3.text = Nothing
     End If
End With
[此贴子已经被作者于2019/8/4 0:55:58编辑过]

--  作者:y2287958
--  发布时间:2019/8/4 10:23:00
--  

cmb2.text = Nothing

这里测试正常的


--  作者:atiwhl
--  发布时间:2019/8/4 11:06:00
--  
我先录入“事业”,然后再录入其他的,那两个控件的text不会清除
--  作者:有点蓝
--  发布时间:2019/8/4 21:03:00
--  
试试

cmb2.value= Nothing

--  作者:atiwhl5
--  发布时间:2019/8/10 1:27:00
--  
以下是引用有点蓝在2019/8/4 21:03:00的发言:
试试

cmb2.value= Nothing

试过了,也一样
--  作者:atiwhl5
--  发布时间:2019/8/10 1:27:00
--  
以下是引用y2287958在2019/8/4 10:23:00的发言:

cmb2.text = Nothing

这里测试正常的

我的没起作用啊
--  作者:有点蓝
--  发布时间:2019/8/10 8:48:00
--  
如果是绑定的,改绑定的表格数据:http://www.foxtable.com/webhelp/topics/2436.htm