以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断复选框内容是录入还是选择  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164339)

--  作者:shxlife
--  发布时间:2021/5/6 19:26:00
--  如何判断复选框内容是录入还是选择
老师:请问 如何判断 CheckedComboBox  复选框内容是手工录入还是自动选择?
--  作者:有点蓝
--  发布时间:2021/5/6 20:35:00
--  
只能判断输入的内容是否在下拉项目中,获取text文本,根据逗号拆分:http://www.foxtable.com/webhelp/topics/0245.htm,遍历拆分后的数组项目,判断是否在复选框的下拉列表中

Dim cmb As WinForm.CheckedComboBox
cmb = Forms("窗口1").Controls("CheckedComboBox1")
dim lst as new List(of string)
lst.addrange(cmb.ComboList.split("|"))
for each s as string in cmb.text.solit(",")
if lst.contains(s) = false then
msgbox(s & "不在下拉项目中")
end if
next