Foxtable(狐表)用户栏目专家坐堂 → 关于listview拖动,同步删除记录的问题


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

主题:关于listview拖动,同步删除记录的问题

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


加好友 发短信
等级:一尾狐 帖子:419 积分:4442 威望:0 精华:0 注册:2012/3/7 23:19:00
关于listview拖动,同步删除记录的问题  发帖心情 Post By:2016/6/12 8:47:00 [只看该作者]

每次都忘了上传之前要先打几个字图片点击可在新窗口打开查看

上传了例子,希望高人们指点指点,窗口中有两个listview,两张表
图片点击可在新窗口打开查看

想实现:
  1 - 从下面拖动图片到上面的listview时,自动添加记录到上表
  2 - 从上面移走图片时,同步删除上表中的记录
执行拖动删除后再次想执行步骤1时报错,请问是什么原因?
图片点击可在新窗口打开查看



 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview拖动图片2.zip

[此贴子已经被作者于2016/6/12 8:48:36编辑过]

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/6/12 9:23:00 [只看该作者]

Dim lvw As WinForm.ListView = e.Sender
Dim itm As WinForm.ListViewRow =  e.Source.Rows(e.OldIndex) '获取要拖动过来的行
Dim t As Table = e.Form.Controls("table1").Table
If e.Source.Name <> e.Sender.Name Then '如果是从其他ListView中拖动过来的
    e.Delete = False '不要删除原来的项目
    Dim dr As DataRow = itm.Tag
    t.AddNew
    t.Current("第一列") = dr("第一列")
    t.Current("第二列") = dr("第二列")
    
    Dim Key As String = t.Current("第二列") '获取此员工的照片文件
    lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
    'itm.ImageKey = Key '设置图片键值
    'itm.Tag = t.Current.DataRow
    'itm.Retrieve
    ‘去掉以上三行代码
End If

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


加好友 发短信
等级:一尾狐 帖子:419 积分:4442 威望:0 精华:0 注册:2012/3/7 23:19:00
  发帖心情 Post By:2016/6/12 10:07:00 [只看该作者]

谢谢Hyphen
再请教两个问题
1.能说说为什么去掉那三行代码吗?
2.如果要避免重复应该怎么做?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/12 10:35:00 [只看该作者]

1、没有必要,自然不需要写,只有在虚拟模式下,需要这样

 

http://www.foxtable.com/help/topics/2823.htm

 

2、

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview拖动图片2 (1).zip


 回到顶部