- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于ComboBox控件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194427)
-- 发布时间：2024/12/9 11:20:00
-- 关于ComboBox控件问题
怎样判断组合框ComboBox控件中列表是否有重复值？
-- 发布时间：2024/12/9 12:06:00
--
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
dim lst as new list(of string)
For i As Integer = 0 To cmb.Items.Count - 1
If lst.contains(cmb.Items(i)) Then
For i As Integer = 0 To cmb.Items.Count - 1
If lst.contains(cmb.Items(i)) Then
msgbox(cmb.Items(i) & "有重复")
exit for
else
lst.add(cmb.Items(i))
End If
Next
End If
Next
-- 发布时间：2024/12/9 12:23:00
--
这段代码放入到“valueChanged”事件中判断不了，怎么办？
-- 发布时间：2024/12/9 13:05:00
--
判断列表是否有重复值其实没有什么意义。要做什么功能?
-- 发布时间：2024/12/9 13:22:00
--
ComboBox作为一个数据输入控件，可以人工输入但不能和现有的数据重复，当第一次输入不重复数值后离开控件后自动保存数据，以便以后输入数据时可以选择.
代码如下：
Dim s As String = GetConfigValue("List","")
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("csComboBox")
Dim lst As new List(of String)
For i As Integer = 0 To cmb.Items.Count - 1
If lst.contains(cmb.Items(i)) Then
msgbox(cmb.Items(i) & "有重复")
Return
Exit For
Else
SaveConfigValue("List",s & "|" & e.Sender.text)
End If
Next
在enter事件中写入如下代码：
e.Sender.ComboList = GetConfigValue("List","")
-- 发布时间：2024/12/9 13:31:00
--
最早的下拉列表是怎么来的
-- 发布时间：2024/12/9 13:35:00
--
一开始是在自定义项目中设置了几个，后期考虑用户有可能会扩大选项所有考虑用这个功能
-- 发布时间：2024/12/9 13:42:00
--
最早的下拉列表是怎么来的，用了什么代码？
-- 发布时间：2024/12/9 13:47:00
--
是要问这个吗？
此主题相关图片如下：screenshot_20241209_134555.png
没有代码
[此贴子已经被作者于2024/12/9 13:48:34编辑过]
-- 发布时间：2024/12/9 13:55:00
--
控件绑定的是什么列？