- 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=121879)
-- 发布时间：2018/7/14 17:44:00
-- ListView和数据表的互动问题
老师你好：关于
ListView和数据表的互动问题，我的全是平铺的大图片，如何点击大图片实现ListView和数据表的互动。
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current \'获取ListView的当前行
If vr Is Nothing Then \'如果不存在当前行,也就是内有选定任何一行
Return
End If
Dim dr As DataRow = vr.tag \'获取此行对应的DataRow
Dim ps As Integer = Tables("员工").FindRow(dr)
If ps >= 0 Then
Tables("员工").Position = ps
Forms("员工信息").Open
For Each cl As WinForm.ListViewColumn In lvw.Columns \'逐列更新值
vr(cl.Name) = dr(cl.Name)
Next
End If
-- 发布时间：2018/7/14 17:53:00
--
你想要如何互动，上面代码执行有什么问题？
-- 发布时间：2018/7/14 17:54:00
--
执行没有反应
-- 发布时间：2018/7/14 17:57:00
--
代码放在什么事件的？上传例子看看
-- 发布时间：2018/7/14 17:58:00
--
我的图片都是以列平铺的大图片，不是一行一行的那种
-- 发布时间：2018/7/14 18:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:鼎基管理.table |
-- 发布时间：2018/7/15 18:00:00
--
不论你用什么方式显示，代码都是一样的。你照着例子做，遇到什么问题？
http://www.foxtable.com/webhelp/scr/2782.htm
关键代码
vr.Tag= dr \'将DataRow赋值给ListViewRow的Tag属性,将二者联系起来