如何检查列表框中的值并选择某些行

Question

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

我需要加载弹出窗体的ListBox，并且已经突出显示现有值，以便用户可以添加或删除项目。

  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 ItemIndex = 0 to lbFA.listCount -1的标准。这样，如果多列列表框＆gt;，您也可以从不同列获取值。 lbfa.column（col_id，ItemIndex）