比较ListBox中的循环结果

时间:2017-11-27 22:01:24

标签: vba ms-access listbox access-vba

下午好,

我正在维护一个Access数据库,并且我在表单上有一个多选列表和多列列表框。我正在查询列表框,以根据所有用户选择的行获取第三列(包含文本)中的值。这是代码:

Dim varItem As Variant

For Each varItem In Me!Lst_CPList.ItemsSelected
Debug.Print Lst_CPList.Column(2, varItem)
Next varItem

我可以在即时窗口看到我得到了正确的结果。我需要做的是:

1 - 比较上述代码的结果(结果框中的选定行数将会有多少)

2 - 确保结果完全相同。如果不是,我将退出子并提示用户在列表框的第三列中使用相等的值进行选择。

我希望这很清楚,感谢大家的帮助。

0 个答案:

没有答案