| 以文本方式查看主题 - 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=80837) |
| -- 作者：twef -- 发布时间：2016/2/3 14:36:00 -- [求助]如何实现窗口中的表位置与窗口中ListView位置互动？ 已经实现在ListView中选择相应行后与表之间的位置互动，如何编程实现反过来选择窗口中的表某一行与自动选择窗口中ListView所对应的位置？ |
| -- 作者：大红袍 -- 发布时间：2016/2/3 14:40:00 -- 思路，循环listview的每一行，判断其 tag 和 当前表当前行的_Identify，相同的就选中即可。 |
| -- 作者：twef -- 发布时间：2016/2/3 14:53:00 -- 大红袍老师，请教一下，代码写在表事件的哪个位置比较合适？ |
| -- 作者：大红袍 -- 发布时间：2016/2/3 14:55:00 -- 可以写在表的CurrentChanged事件。 |
| -- 作者：twef -- 发布时间：2016/2/3 16:17:00 -- 大红袍老师，麻烦您看一下，这样写行吗？ If e.Table.Current Is Nothing Then Return Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") Dim i As Integer = Tables("Table1").Position If i >=0 Then lvw.Position = i End If |
| -- 作者：大红袍 -- 发布时间：2016/2/3 16:20:00 -- If e.Table.Current Is Nothing Then Return If forms("窗口1").Opened Then Dim lvw As WinForm.ListView = forms("窗口1").Controls("ListView1") For Each r As WinForm.ListViewRow In lvw.rows If r.tag = e.Table.current("_Identify") r.Selected = True Exit For endif Next End If |