Foxtable(狐表)用户栏目专家坐堂 → listview 问题请教


  共有4821人关注过本帖树形打印复制链接

主题:listview 问题请教

帅哥哟,离线,有人找我吗?
HJG_HB950207
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6003 威望:0 精华:0 注册:2015/2/17 10:18:00
listview 问题请教  发帖心情 Post By:2023/2/1 17:59:00 [只看该作者]

表A 有图表列,备注型,扩展列类型为图片


窗口建有 LISTVIEW1 和绑定表A的窗口表TAB1

通过以下已完成LISTVIEW1 绘制
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() 
lvw.Rows.Clear()
lvw.Images.Clear() 
lvw.View = ViewMode.LargeIcon 
lvw.Images.LargeSize = New Size(160, 190) 

For Each dr As DataRow In DataTables("图片").DataRows 
    Dim Key As String = dr("图片") 
    lvw.Images.AddLargeImage(Key, Key) 
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() 
    vr.Text = dr("图片")
    vr.ImageKey = Key 
Next
lvw.ResumeRedraw()


请教:如何在点击LISTVIEW1中图片时,窗口表当前行同步跳到该图片所对应的行。谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/2 8:39:00 [只看该作者]

参考这种:http://www.foxtable.com/webhelp/topics/2776.htm,把其它列数据也加入listview,然后通过选中行事件(http://www.foxtable.com/webhelp/topics/2872.htm)获取选中行的编号列的值,查询定位:http://www.foxtable.com/webhelp/topics/0553.htm

 回到顶部
帅哥哟,离线,有人找我吗?
HJG_HB950207
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6003 威望:0 精华:0 注册:2015/2/17 10:18:00
  发帖心情 Post By:2023/2/2 20:05:00 [只看该作者]

搞定,想复杂了,很简单。
lDim lr As WinForm.ListViewRow = e.Sender.Current

Dim a As String = lr.TEXT
Maintable = Tables("图片")
With CurrentTable
    Dim r As Integer
    r = .FindRow("[名] Like '" & A & "'") 
    If r >= 0 Then 
        .Position = r 
    End If
End With

 回到顶部