代码之家 › 专栏 › 技术社区 › bd528

从访问列表框列获取非重复值

access-vba ms-access vba

0

bd528 · 技术社区 · 6 年前

在Access2016中,我有一个单列的多选列表框:-

Item 1
Item 1
Item 2
item 3
Item 3

在VBA中,是否有方法可以从选定行中删除重复项并在消息框中显示剩余值。因此,将从上面的数据中显示以下值(假设选择了所有行):-

Item 1
Item 2
item 3

1 回复 | 直到 6 年前

1

nagarajannd 6 年前

在添加新项之前,使用词典并检查重复项

Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
For lngRow = 0 To ListBox.ListCount - 1
    If .Selected(lngRow) Then
        If Not dict.exists(ListBox.Column(0, lngRow)) Then
            x.Add ListBox.Column(0, lngRow), ""
        End If
Next

For Each x In dict.keys
    Str = Str & x & vbNewLine
Next
MsgBox Str