主题：[求助]ListView能不能点击分组，这个分组就折叠起来？像任务一样

With Tables("表A")

    Dim r As Integer

    r = .FindRow("[姓名] Like '%李%'", .Position + 1, True ) '从当前行的下一行开始查找

    If r >= 0 Then '如果找到的话

        '   .Position = r '定位到找到的行.

        Dim lvw As WinForm.ListView = Forms("聊天").Controls("ListView1")

        lvw.Rows(r).Selected = True '选中第r行

        

        lvw.Rows(r).EnsureVisible() '使得第t行可见

    End If

End With