请教参数查询的问题!

xeastsun

我做了一个分班统计的报表,共五个班,内容一样,在一页上放五个子报表来分别显示这五个班的数据（查询的数据量比较大).
在此种情况下,我想指定一个参数来确定是哪个班的数据，这样有问题的时候就能修改一个查询就可以了，我在网上查到了如何用代码来进行能数查询，但如何把查询的结果指定给报表呢？我没有查到，请各位指教！

paul16

将报表的数据源设定为该查询就可以了！

xeastsun

是指先用代码获取查询的SQL，然后加上选择条件，再将这个加过限定条件的SQLstr指定给报表的RecordSource吗？

xeastsun

呵呵,我知道了,我选试试!

A recordset has a seldom-used property, Name, that gives you the table, query or SQL string that the recordset was opened with. And this is exactly what is needed to set a recordsource.

In the Open event of the report:

Private Sub Report_Open(Cancel As Integer)
  Me.RecordSource = grst.Name
End Sub

In a standard module:

'
' This code was originally written by Andy Baron
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Andy Baron
'
Public grst As Recordset

Public Sub testreport()
  Set grst = CurrentDb.OpenRecordset( _
                "Select * from tblTest1 where longfield=4")
  DoCmd.OpenReport "rptTest1", acViewPreview  
  grst.Close  
  Set grst = Nothing
End Sub