请教！如何将窗体中“按窗体筛选”的结果传递给报表啊？

sxgaobo

使用系统带的“按窗体筛选”功能可以很方便的多条件筛选数据，可如何能将筛选结果传递给报表啊！？

sxgaobo

有知道的朋友吗？是我说的不明白吗？

一点通

自己建一个筛选查询吧

sxgaobo

自己建的筛选查询的筛选条件是固定的，而使用系统带的“按窗体筛选”功能可以很方便的多条件筛选数据。现在就想能不能将筛选结果传递给报表，能的话如何做啊！？

sgrshh29

以下是引用sxgaobo在2006-1-23 15:31:00的发言：
自己建的筛选查询的筛选条件是固定的，而使用系统带的“按窗体筛选”功能可以很方便的多条件筛选数据。现在就想能不能将筛选结果传递给报表，能的话如何做啊！？

做个查询，再做个报表。报表就用这个查询做数据源。筛选后用代码改变查询使其与窗体的数据源一致，很简单的代码就解决了。

sgrshh29

最简单的方法：

'公有变量
Public strsql As String  
‘窗体模块
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Dim a, b As String
a = Me.RecordSource
b = Me.Filter
strsql = "select * from " & a & " where " & b
DoCmd.OpenReport "RepotName", acViewPreview
End sub
’报表模块
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = strsql
DoCmd.Maximize
End Sub

sgrshh29

再简化：（窗体和报表的数据源为同一个数据表）

‘窗体模块
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
strFilter = Me.Filter
DoCmd.OpenReport "RepotName", acViewPreview, , strFilter
End Sub

[此贴子已经被作者于2006-1-24 11:24:53编辑过]

wuaza

sgrshh29的办法好，学习ing。

zcy0718

sgrshh29的办法好