UC知道combobox 重复
来源：百度知道 编辑：UC知道 时间：2024/06/22 02:36:27
光标离开时 过滤重复数据 如果有重负就弹出对话框提示 这个应该用什么语句 提示一下吧
Private Sub Combo1_LostFocus()
Dim i As Long, n As Long
For i = 0 To Combo1.ListCount - 1
For n = 0 To Combo1.ListCount - 1
If Combo1.List(n) = Combo1.List(i) And n <> i Then
Combo1.RemoveItem n
MsgBox Combo1.List(i) & "重复！"
End If
Next n
Next i
End Sub
Private Sub Form_Load()
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
Combo1.AddItem "ddd"
Combo1.AddItem "ddd"
End Sub