[求助]如何在列表框多选择查询？

wgf2005

我想在列表框中一次选择多个科目代号，比如说要查询02、05、06三个科目代号的记录，按Ctrl+鼠标左键选定这三个科目的代号后点开始查询，在子窗体中显示这三个科目代号的所有记录。怎么做？ FomqMz0c.rar (11.86 KB, 下载次数: 46)

2005-4-27 12:53 上传

点击文件名下载附件
[求助]如何在列表框多选择查询？

cofe2000

首先行来源有误，有重复项出现，应为SELECT DISTINCT [表1].[科目代号] FROM 表1;

查询按钮代码.List（tt）部分我也不清楚，excel中是这么写的，access中通不过！！

我想原理应该是这样的

Private Sub Command6_Click()

strWhere = ""

With Me.List0

For tt = 0 To .ListCount - 1

If .Selected(tt) Then

strWhere = strWhere & "([科目代号] like '" & .List（tt） & "') AND "

End If

Next

End With

If Len(strWhere) > 0 Then

strWhere = Left(strWhere, Len(strWhere) - 5)

End If

Debug.Print strWhere

Me.查询1子窗体.Form.Filter = strWhere

Me.查询1子窗体.Form.FilterOn = True

End Sub

[此贴子已经被作者于2005-4-27 14:30:14编辑过]

wgf2005

不成功，还没解决呢？

cofe2000

是没有解决，我不是说了吗，excel中是这么写的，access中通不过啊

还得请高手出来帮忙

我帮你顶

wgf2005

谢谢了。

通过另一个论坛朋友的帮助，现已解决。

cofe2000

老大，你解决了倒是把结果贴上来给偶瞧瞧啊

偶还不知道怎么做呢

wgf2005

好的，这是代码：

dim a as variant

dim b as control

dim c as string

set b =m.list0

for each a in b.etemsselected

c="科目代号=' "& b.itemdata(a)&"'"&"or"&c

next a

c=left(trim(c),len(trim(c))-2)

me.子窗体.form.filter=c

me.子窗体.form.filteron=true

cofe2000

多谢

eq0eq0

可否上传一个完整表，复制代码有错。。。

wan_shan

参考：http://www.accfans.net/dvbbs/dispbbs.asp?BoardID=26&ID=7183

[此贴子已经被作者于2005-5-3 9:05:56编辑过]