Foxtable(狐表)用户栏目专家坐堂 → [讨论]ListBox形式的列表框,如何删除选定的行


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

主题:[讨论]ListBox形式的列表框,如何删除选定的行

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


加好友 发短信
等级:小狐 帖子:304 积分:2684 威望:0 精华:0 注册:2011/10/29 16:26:00
[讨论]ListBox形式的列表框,如何删除选定的行  发帖心情 Post By:2019/3/23 14:15:00 [只看该作者]

在窗口里做了一个ListBox形式的列表框,并将列表框与“表A”的列1绑定。
添加内容好做,直接向“表A”的列1内添加即可,但是删除按钮,将列表框内选定的行的内容删除,的代码该如何写?

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


加好友 发短信
等级:超级版主 帖子:107521 积分:546890 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/23 14:39:00 [只看该作者]

Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.Items.Remove(lst.SelectedValue)

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


加好友 发短信
等级:小狐 帖子:304 积分:2684 威望:0 精华:0 注册:2011/10/29 16:26:00
  发帖心情 Post By:2019/3/23 17:12:00 [只看该作者]

以上代码不能删除选定内容

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


加好友 发短信
等级:超级版主 帖子:107521 积分:546890 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/23 17:28:00 [只看该作者]

我测试没有问题,上传实例说明

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


加好友 发短信
等级:小狐 帖子:304 积分:2684 威望:0 精华:0 注册:2011/10/29 16:26:00
  发帖心情 Post By:2019/3/23 18:21:00 [只看该作者]

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/24 13:11:00 [只看该作者]

参考代码,如

 

Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.SelectedItem.delete


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


加好友 发短信
等级:小狐 帖子:304 积分:2684 威望:0 精华:0 注册:2011/10/29 16:26:00
  发帖心情 Post By:2019/3/24 22:10:00 [只看该作者]

以上代码还是不能解决问题!
用以上代码测试后发现,只能删除第一行,并不能删除选定行,并且第一行删除后,选定其他行,选择的值会修改第一行的值。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/24 22:37:00 [只看该作者]

以下是引用jjjeyes在2019/3/24 22:10:00的发言:
以上代码还是不能解决问题!
用以上代码测试后发现,只能删除第一行,并不能删除选定行,并且第一行删除后,选定其他行,选择的值会修改第一行的值。

 

你这个控件,不要【绑定表列】啊。我测试没问题。

 

 

[此贴子已经被作者于2019/3/24 22:37:22编辑过]

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


加好友 发短信
等级:小狐 帖子:304 积分:2684 威望:0 精华:0 注册:2011/10/29 16:26:00
  发帖心情 Post By:2019/3/24 22:53:00 [只看该作者]

原来如此,谢谢!
但是还是追问一下,为什么以下代码不能执行?
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.Items.Remove(lst.SelectedValue)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/24 23:06:00 [只看该作者]

回复9楼,因为你是直接使用【显示列】【取值列】设置的。

 

如果你通过【自定义项目】、combolist设置的,9楼的代码有效。否则,无效。


 回到顶部