关于多项选择的列表框文件多选择问题！

eio · 发表于 2003-1-20 04:24:00

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

eio · 发表于 2003-1-20 16:50:00

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

zhengjialon · 发表于 2003-1-20 21:45:00

如果选择了5条，那么你就让程式执行5次追加查询呗！

eio · 发表于 2003-1-20 23:27:00

怎样才能执行5次（这个“5”是未知的），而SQL命令的链接ID也不相同，例如（01，02，03，04，05）

eio · 发表于 2003-1-21 04:02:00

[em01]

徐阿鹏 · 发表于 2003-1-21 04:29:00

唉!我太菜,心有余力不足.只能帮你顶顶把

Trynew · 发表于 2003-1-21 06:21:00

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

eio · 发表于 2003-1-21 07:08:00

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

Trynew · 发表于 2003-1-21 08:00: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:00

例子有些语句未用过，但我会慢慢理解的[em14]

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 关于多项选择的列表框文件多选择问题！

大家都不帮忙了

例子

OK，就是这个意思，谢谢trynew版主

群介绍
主题无相 (随机显示版	同地区群块其他地区)