Question

我遇到了有关列表框的一段代码问题。这个想法是，用户可以在文本框中写一个可搜索的值，然后单击一个按钮，然后从列表框的第七列中搜索该值-如果找到该值，则选择该行。我尝试了多个版本，但没有选择任何行。

Dim strSearch As Variant
Dim lngRow As Long
strSearch = txtSearch
With Me.lstTest
    For lngRow = 0 To lstTest.ListCount - 1
        If (Me.lstTest.Column(6, lngRow)) = strSearch Then
            lstTest.Selected(lngRow) = True
        Else
            lstTest.Selected(lngRow) = False
        End If
    Next
End With

Answer 1

编辑

利用With Me.lstTest语句，从那里开始到达列表框的所有成员

Private Sub CommandButton1_Click()
    Dim strSearch As Variant
    Dim lngRow As Long
    strSearch = Me.txtSearch

    With Me.lstTest
        For lngRow = 0 To .ListCount - 1
            If (.Column(6, lngRow)) = strSearch Then
                .Selected(lngRow) = True
            Else
                .Selected(lngRow) = False
            End If
        Next
    End With
End Sub

根据输入列值选择列表框的行

1 个答案: