请问查询的多项选择问题

小硬盘

具体情况是这样的:
我有一个表,表里面有学生的姓名,性别,语文,数学,英语,物理,化学成绩.
我现在建立一个查询,在姓名的一栏设置条件----------[Forms]![窗体1]![学生姓名]
然后基于查询建立报表.
那么,如果我双击报表,按提示输入姓名后,报表中会出现对应学生的数据.

但问题是,仅仅是一个学生.
也就是单项选择

请问假如我要多项选择,就是说我要查询出n个人的成绩列在同一张报表中,应该怎么设置条件呢
相应的窗体又应该怎么做呢.

谢谢大家帮个忙

[此贴子已经被作者于2006-6-25 16:36:33编辑过]

andymark

把要打印或预览的学生添加到一个列表框，再以此为条件，输出报表

小硬盘

请问怎么将学生姓名列成一个列表框啊

fan0217

将要查询的学生姓名，用or串起来放在sql的where子句中。

将列表框的行来源设置成学生表的相关字段就可以了，用向导。把列表框的多重选择属性设置成简单。

余下的就是通过循环把学生姓名用or串起来放入sql语句中。

如果不明白可以将你的例子放上来。

小硬盘

例子已经传到贴纸上了.这个是单选的情况
非常感谢楼上的大哥们

[此贴子已经被作者于2006-6-25 16:37:45编辑过]

fan0217

Private Sub List0_AfterUpdate()
Dim ctl As Control
Dim varItm As Variant
Dim strSQL As String
Dim strSqlWhere As String

Set ctl = Me.List0

For Each varItm In ctl.ItemsSelected
    strSqlWhere = strSqlWhere & " or 学生姓名 like " & Chr(39) & ctl.ItemData(varItm) & Chr(39)
Next

If strSqlWhere <> "" Then
    strSqlWhere = "(" & Right(strSqlWhere, Len(strSqlWhere) - 4) & ")"
    strSQL = "SELECT * FROM 贴纸记录 WHERE " & strSqlWhere
Else
    strSQL = "SELECT * FROM 贴纸记录 "

End If
    Me.子窗体.Form.RecordSource = strSQL
    Me.子窗体.Form.Requery
End Sub



Private Sub Form_Load()
    Me.List0.RowSource = "SELECT DISTINCT 贴纸记录.学生姓名 FROM 贴纸记录;"
End Sub

小硬盘

楼上的大哥,我已经把你的实例看过了.

非常感谢你的多选窗体

可是怎么实现选出来的人的数据在同一张报表里呢,

fan0217

能筛选出来，还不能做成报表吗？多变通变通。

小硬盘

我再试试吧,

刚学没有多久

谢谢督促

[此贴子已经被作者于2006-6-26 13:16:24编辑过]

hi-wzj

更初级一点的，可以将要查询的学员保存在一个表里，然后通过匹配查询向导来完成。