Office中国论坛/Access中国论坛

标题: 关于多项选择的列表框文件多选择问题！ [打印本页]

作者: eio 时间: 2003-1-20 04:24
标题: 关于多项选择的列表框文件多选择问题！

如上图片已选择的内容如何执行SQL或者其他代码命令？

作者: eio 时间: 2003-1-20 16:50
是我表达不清楚吗？就是批量选择了列表框的选定值，如何批量执行代码：例如选择1行，进行1种物料的SQL追加命令，如果选择了5行，就将5种物料同时追加！

作者: zhengjialon 时间: 2003-1-20 21:45
如果选择了5条，那么你就让程式执行5次追加查询呗！

作者: eio 时间: 2003-1-20 23:27
怎样才能执行5次（这个“5”是未知的），而SQL命令的链接ID也不相同，例如（01，02，03，04，05）

作者: eio 时间: 2003-1-21 04:02
标题: 大家都不帮忙了
[em01]

作者: 徐阿鹏 时间: 2003-1-21 04:29
唉!我太菜,心有余力不足.只能帮你顶顶把

作者: Trynew 时间: 2003-1-21 06:21
列表框多选生成查询：
select * from 表名 where 关键字 in (已选列表值)
来处理。
具体应用你可贴一个例子上来，我可以帮你改一下。

作者: eio 时间: 2003-1-21 07:08
对不起，我的例子在公司数据库内有很多牵连的表，所以例子不便发上来，简单的示例：如有物料表，列表框引用物料表，当多重选择物料后，点击旁边的按钮，列表框内选中的物料都添加到temp表就可以啦，其他的我应该明！

作者: Trynew 时间: 2003-1-21 08:00
标题: 例子
文件下载
代码如下：
Private Sub 命令0_Click()
Dim i As Integer, SelStr As String
For i = 0 To Me.列表1.ItemsSelected.Count - 1
SelStr = SelStr & "'" & Me.列表1.ItemData(Me.列表1.ItemsSelected.Item(i)) & "',"
Next
'MsgBox SelStr
DoCmd.RunSQL "INSERT INTO Temp ( 姓名, 科室, 办公室位置, 家庭电话, 传呼 ) SELECT 职员.姓名, 职员.科室, 职员.办公室位置, 职员.家庭电话, 职员.传呼 FROM 职员 WHERE (((职员.姓名) In (" & SelStr & "'')));"
End Sub

作者: eio 时间: 2003-1-21 17:04
标题: OK，就是这个意思，谢谢trynew版主
例子有些语句未用过，但我会慢慢理解的[em14]

作者: xie16abc 时间: 2010-3-10 14:24
学习了

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