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

wgf2005 · 发表于 2005-4-27 12:50

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

FomqMz0c.rar (11.86 KB, 下载次数: 46)

cofe2000 · 发表于 2005-4-27 14:25

首先行来源有误，有重复项出现，应为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

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 · 发表于 2005-4-28 11:55

不成功，还没解决呢？

cofe2000 · 发表于 2005-4-28 12:59

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

还得请高手出来帮忙

我帮你顶

wgf2005 · 发表于 2005-4-28 13:48

谢谢了。

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

cofe2000 · 发表于 2005-4-28 16:52

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

偶还不知道怎么做呢

wgf2005 · 发表于 2005-4-29 21:53

好的，这是代码：

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 · 发表于 2005-4-30 09:29

多谢

eq0eq0 · 发表于 2005-5-2 00:47

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

wan_shan · 发表于 2005-5-3 09:05

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

		自动登录	找回密码
密码			免费注册