以文本方式查看主题

-  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=177408)

--  作者:wukangppbb
--  发布时间:2022/5/20 16:56:00
--  两个listview怎么互动

老师,我想点击一个listview里面的记录,下面那个自动筛选出来。
这个可以借鉴哪一章的内容?
我知道有个表间关联的可用,不过我想怎么实现这个功能?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview示例0517a01.table




图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20220520165146.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/5/20 17:06:00
--  
模拟关联?http://www.foxtable.com/webhelp/topics/2222.htm

大概这样
上面listview的RowSelectionChanged事件
If e.Sender.Position = e.Index Then 
dim 编号 as string = e.row.text
    msgbox(编号)
根据编号查询数据重新生成listview2内容
End If

--  作者:wukangppbb
--  发布时间:2022/5/22 20:07:00
--  回复:(有点蓝)模拟关联?http://www.foxtable.com/...
按照手册指导设置副本,还是不会搞。


 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:listview示例0517a01.table



If e.Sender.Position = e.Index Then 
dim 编号 as string = e.row.text
    msgbox(编号)
根据编号查询数据重新生成listview2内容

Dim r As Row = Tables("员工").Current
If  r.IsNull("编号") = False Then Return
    Tables("培训记录_Table1").filter = "编号=\'" & r("编号") & "\'"

End If

--  作者:有点蓝
--  发布时间:2022/5/22 20:54:00
--  
根据编号查询数据重新生成listview2内容。原来是怎么生成listview2的,调用同样的代码重新生成一次