如何检查列表框中的值和 select 某些行

Question

我发现了这个问题... EASY: vba: Looking through a listbox and selecting the contents 但似乎 select 每个项目...不是很有用。

我需要加载一个弹出式表单的列表框，其中现有的值已经突出显示，以便用户能够添加或删除项目。

  For x = 1 To rs.RecordCount
    For Each ItemIndex In lbFA.?????
      If lbFA.ItemData(ItemIndex) = rs!FunctionalArea Then
        lbFA.Selected(ItemIndex) = True
      End If
    Next y
  Next x

lbFA.????? 区域发生了什么？我认为这是我唯一缺少的部分。

Answer 1

您可以执行标准的 for 循环 for ItemIndex = 0 to lbFA.listCount -1。如果万一多列列表框 > lbfa.column(col_id, ItemIndex)

如何检查列表框中的值和 select 某些行

How to check values in a listbox and select certain rows

ms-access

vba

listbox