Question

我有一个列表框，总共有5列，第2列中有电子邮件地址。我有一些代码循环遍历该列，并将电子邮件地址添加到电子邮件中的收件人。效果很好，但现在我只需要在列表框第5列中添加包含某个值的电子邮件地址即可。

我已经搜索了查找方法，但是找不到列表框。

这是没有任何查找条件的代码：

strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
    strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
Next N

有什么方法可以修改代码，使其仅添加第2列中满足第5列中特定条件的值？

Answer 1

我不明白这个问题（也许我遗漏了一些东西）。

只需使用与If相同的方法来读取列值即可。

strEmailRecipients = ""
For N = 0 To Me.lstContacts.ListCount - 1
    If Me.lstContacts.Column(5, N) = "a certain value" Then
        strEmailRecipients = strEmailRecipients & "; " & Me.lstContacts.Column(2, N)
    End If
Next N

有没有一种方法可以根据列表框列之一中的条件在列表框中查找值？

1 个答案: