| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- listview 问题请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185049) |
| -- 作者：HJG_HB950207 -- 发布时间：2023/2/1 17:59:00 -- listview 问题请教 表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中图片时，窗口表当前行同步跳到该图片所对应的行。谢谢！
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：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 |