列表框的选定与非选定的问题

cofe2000

当单击“名称”文本框时，如果为空的话，“名称框”列表框取消所有选定，当有名称时“名称框”列表框的选定情况根据“名称”文本框的内容进行选择

Private Sub 名称_Click()

    With Me.名称框

        If Me.名称.Text = "" Then

            For i = 0 To .ListCount - 1

                .ItemsSelected (i)

            Next

        Else

            For i = 0 To .ListCount - 1

                If Me.工作人员.Text = .ItemData(i) Then

                    .Selected(i) = True

                End If

            Next

        End If

    End With

End Sub

海狸先生

    With Me.名称框

        If Me.名称.Text = "" Then

            For i = 0 To .ListCount - 1

            If .Selected(i) = True Then .Selected(i) = False

            Next

        Else

            For i = 0 To .ListCount - 1

                If .Column(1, i) = Me.名称.Text Then

                    .Selected(i) = True

                End If

            Next

        End If

    End With

cofe2000

非常感谢！！