Office中国论坛/Access中国论坛

标题: （急救）如何在列表框中选中行可以删除选中的整行 [打印本页]

作者: sunxiang5204 时间: 2011-2-10 15:55
标题: （急救）如何在列表框中选中行可以删除选中的整行
本帖最后由 sunxiang5204 于 2011-2-10 15:57 编辑

建立一个按钮鼠标点击到那行时可以点击删除按钮删除掉列表框中的整行
前面发了个贴，能删除列表框中的但是是删除掉最上面那一行的不是删除鼠标选中之后的那行

跪求源码

例如按钮为V1 列表框为c1
如何- -!!!

等待高手急救

作者: zyp 时间: 2011-2-10 16:25
列表框应该为设为单选的, 并将列表框绑定为要删除表的主键
在V1的单击事件中写入下面代码:
currentproject.Connection.Execute ("DELETE * FROM 表名 WHERE 主键字段名="& me.c1)
me.c1.requery

作者: roych 时间: 2011-2-10 17:33
把我之前的帖子改改就好了：
http://www.office-cn.net/thread-96036-1-1.html
[attach]44787[/attach]

作者: sunxiang5204 时间: 2011-2-11 10:09
本帖最后由 sunxiang5204 于 2011-2-11 10:17 编辑

回复 roych 的帖子

[attach]44793[/attach] 帮我弄下吧我把代码弄进去老是提示我错误，是不是非得只能单选哦

在返修清单里面

作者: sunxiang5204 时间: 2011-2-11 10:10
回复 zyp 的帖子

非常谢谢

但是还是不行不能达到公司的要求不能单选
JJ东西我烦操死了

作者: zyp 时间: 2011-2-11 14:06
请将代码改一下:
SQL = "DELETE * FROM 反修清单 WHERE 编号=" & Me.List11.Column(0, I)

另外,你的表名为"反修清单", 而在删除时,却写成"返修清单", 两个返字不同

如果每次只删除一行, 将List设为单选, 代码可写成:
SQL = "DELETE * FROM 反修清单 WHERE 编号=" & Me.List11

删除后加入 me.list11.requery 以便列表框及时显示删除后的结果

作者: roych 时间: 2011-2-11 14:49
除了LS所提到的这个问题，还有就是你设置的编号为自动编号，而我的代码是针对文本的。改好之后的见附件：
[attach]44796[/attach]

作者: sunxiang5204 时间: 2011-2-11 16:46

失误失误实在是没看清楚，谢谢啦真的是不知道怎么谢

接着努力边逛边学

作者: thor5566 时间: 2011-12-21 09:42
努力学习中

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)