我有一个组合框和一个列表框。我想要的是，当我从组合框中选择一个值（文本）以检查列表框是否有相同的值（相同的文本），并且是否存在时，msgbox应该显示为“ DATA FOUND”
我尝试了这段代码，但无法正常工作
昏暗的整数
For i = 0 To ListBox1.Items.Count - 1
If ComboBox1.SelectedItem = ListBox1.ValueMember Then
MsgBox("DATA FOUND")
End If
Next i
提前致谢....
您正在使用两个具有不同含义的属性进行比较。SelectedItem是一个对象（可以是任何东西，具体取决于您填充组合的方式，ValueMember只是属性的名称，用作ListBox中各项的实际值。
但是，这两个类（ListBox和ComboBox）共享用于存储其列表项的相同模式，因此假设这两个类都是使用字符串列表填充的，则您的代码可以是
Dim curComboItem = ComboBox1.SelectedItem.ToString()
For i = 0 To ListBox1.Items.Count - 1
If curComboItem = ListBox1.Items(i).ToString() Then
MsgBox("DATA FOUND")
Exit For
End If
Next i
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句