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

Question

我发现了这个问题... 容易：vba：浏览列表框并选择内容，但似乎选择了每个项目...不是很有用。

我需要加载一个弹出式窗体的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.?????中发生了lbFA.????? 区域？ 我认为那是我唯一缺少的部分。

Answer 1

您可以for ItemIndex = 0 to lbFA.listCount -1执行标准的for循环。 这样，如果多列列表框> lbfa.column（col_id，ItemIndex），您也可以从其他列获取值