求助：查询窗体中的查询问题

frogandyy

我现在做的一个查询窗体结构如下：
窗里的查询条件中有　　月份起（组合框）　　月份止（组合框）
　　　　　　　　　　　卷烟代码（组合框）
　　　　　　　　　　　定量类别（组合框）
　　　　　　　　　　　样本编码（列表框）　
注：样本编码可以选择一条也可以选择多条
数据库表aa中的字段：月份，定量类别，样本编码，卷烟名称，进货前库存，同期进货量，条零售数量，条零售价格，包零售数量，包零售价格，卷烟代码
现在的查询窗体中只要输入条件相应的记录就可以查询出来
如选择月份：6　，卷烟代码：（不选）　定量类别：（不选）
样本编码（选中2个编码）：0601，0842
按现在的窗体实现的结果为：
月份，定量类别，样本编码，卷烟名称，进货前库存，同期进货量，卷烟代码，。。
6　　　类别A　　　0601　　　中华　　　2　　　　　　5　　　　31013102
6　　　类别A　　　0601　　　牡丹　　　1　　　　　　3　　　　31013103
6　　　类别A　　　0601　　　白沙　　　4　　　　　　6　　　　31013104
6　　　类别A　　　0601　　　利群　　　0　　　　　　8　　　　31013105
6　　　类别A　　　0601　　　红梅　　　2　　　　　　7　　　　31013106
6　　　类别A　　　0842　　　中华　　　2　　　　　　5　　　　31013102
6　　　类别A　　　0842　　　牡丹　　　2　　　　　　5　　　　31013103
6　　　类别A　　　0842　　　白沙　　　2　　　　　　5　　　　31013104
6　　　类别A　　　0842　　　利群　　　2　　　　　　5　　　　31013105
6　　　类别A　　　0842　　　红梅　　　2　　　　　　5　　　　31013106
***********************************************************************
如果查询条件和上面一样的话，现在我想实现的结果如下：不知该如何解决
月份　卷烟名称，进货前库存，同期进货量，卷烟代码，。。
6　　　中华　　　　4　　　　　10　　　　31013102　　
6　　　牡丹　　　　3　　　　　8　　　　 31013103　　
6　　　白沙　　　　6　　　　　11　　　　31013104　　
6　　　利群　　　　2　　　　　13　　　　31013105　　
6　　　红梅　　　　4　　　　　12　　　　31013106
当查询条件中的“样本编码”　只选择1个时，结果显示***号上面一种，当查询条件中的“样本编码”　选择2个或2个以上时，结果显示***号下面一种

一点通

请参照一下刘小军的常用窗体查询例子

frogandyy

原帖由 一点通 于 2007-8-21 16:46 发表
请参照一下刘小军的常用窗体查询例子

那个我已经看过了，主要是这个列表框多选查询的问题，不知道该怎么写

Henry D. Sy

Private Sub cmd查询_Click()
Dim frm As Form, ctl As Control
Dim vari As Variant
Dim strWhere As String
Dim str As String
Set frm = Forms!ctaa
Set ctl = frm!样本编码
For Each vari In ctl.ItemsSelected
   strWhere = "样本编码='" & ctl.ItemData(vari) & " '" & str
   str = "Or" & " " & strWhere
Next
Me.aa_查询1_子窗体.Form.Filter = strWhere
Me.aa_查询1_子窗体.Form.FilterOn = True
Me.aa_查询1_子窗体.Requery
End Sub