以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]ListView能不能点击分组，这个分组就折叠起来？像任务一样  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154430)
--  作者：zto001
--  发布时间：2020/9/15 1:47:00
--  [求助]ListView能不能点击分组，这个分组就折叠起来？像任务一样
[求助]ListView能不能点击分组，这个分组就折叠起来？像任务栏一样
--  作者：zto001
--  发布时间：2020/9/15 2:03:00
--  【已解决】
能不能跳转到指定的行？


Dim lvw As WinForm.ListView = Forms("聊天").Controls("ListView1")
lvw.Rows(3).Selected = True \'选中第269行

lvw.Rows(3).EnsureVisible() \'使得第269行可见





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
[此贴子已经被作者于2020/9/15 2:10:47编辑过]