我有一个组合框和一个列表框。我想要的是,当我从组合框中选择一个值(文本)以检查列表框是否有相同的值(相同的文本),并且是否存在时,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] 删除。
我来说两句