下午好,
我正在维护一个Access数据库,并且我在表单上有一个多选列表和多列列表框。我正在查询列表框,以根据所有用户选择的行获取第三列(包含文本)中的值。这是代码:
Dim varItem As Variant
For Each varItem In Me!Lst_CPList.ItemsSelected
Debug.Print Lst_CPList.Column(2, varItem)
Next varItem
我可以在即时窗口看到我得到了正确的结果。我需要做的是:
1 - 比较上述代码的结果(结果框中的选定行数将会有多少)
2 - 确保结果完全相同。如果不是,我将退出子并提示用户在列表框的第三列中使用相等的值进行选择。
我希望这很清楚,感谢大家的帮助。