列表框复选查询

胡仕民　发表于：2013-07-16 09:00:29 　

复制

各位老师，请问如何才能实现此查询：

1. 在窗体中选择列表框中 A和B ，如图：

2. 查询此表中的数据，如图：

3. 如何建立查询得到如下结果：

Top

煮江品茶发表于：2013-07-16 10:35:15

假设你的列表框名曰：list1，且只有1列数据。假设你的子窗体控件名曰：子窗体，则

Sub FilterForm()
　　dim strwh as string
　　dim itm as Variant
　　if me.list1.itemsselected.count>0 then
　　　　strwh="False"
　　　　for each itm in me.list1.itemsselected '遍历选中行
　　　　　　strwh=strwh & " or 字母='" & itm.column(0,itm) & "'" '构造筛选字符串
　　　　next itm
　　else
　　　　strwh="true"
　　end if
　　me.子窗体.form.filter=strwh
　　me.子窗体.form.filteron=true
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

列表框复选查询