标题: 求助一种查询 [打印本页] 作者: jp777 时间: 2009-1-8 22:42 标题: 求助一种查询 我做了一张统计报表，但在安年份查询并统计结果时出现了问题。请问哪位高手能够解答。万分感谢。
[attach]34393[/attach]作者: Henry D. Sy 时间: 2009-1-8 23:01
从而使上表的统计结果发生改变
什么意思作者: jp777 时间: 2009-1-8 23:14
一开始，统计表里面显示的结果包括了2005至2008年所有的结果（即统计左面那个表里面的记录），现在希望能将各年的结果单独显示出来。这样上表就类似一个模板了。可以同时显示4年的结果，也可以单独显示一年的。作者: Henry D. Sy 时间: 2009-1-8 23:22
如果只是对下面的子窗体进行筛选的话
1. 随便做个查询，名称为 Q
2.
Private Sub Combo2_AfterUpdate()
Dim Qdf As DAO.QueryDef
Dim strCriteria As String
Dim str As String
If Not IsNull(Me.Combo2) Then
str = Me.Combo2
strCriteria = "InStr([Identification Code],'" & str & "') > 0"
Set Qdf = CurrentDb.QueryDefs("Q")
Qdf.SQL = "SELECT manufactory.* FROM manufactory where " & strCriteria
Me.Child4.SourceObject = "查询.Q"
Qdf.Close
Set Qdf = Nothing
End If
End Sub作者: Henry D. Sy 时间: 2009-1-8 23:29
这样也可以
Private Sub Combo2_AfterUpdate()
Dim strCriteria As String
Dim str As String
If Not IsNull(Me.Combo2) Then
str = Me.Combo2
strCriteria = "InStr([Identification Code],'" & str & "') > 0"
Me.Child4.Form.Filter = strCriteria
Me.Child4.Form.FilterOn = True
End If
End Sub作者: jp777 时间: 2009-1-8 23:31
我试了一下，的确下面的表按选择的年份显示出了结果，可是为什么上面的表的结果没有做相应的变化呢。难道是我的思路错了吗？[attach]34394[/attach]
[ 本帖最后由 jp777 于 2009-1-8 23:35 编辑 ]作者: Henry D. Sy 时间: 2009-1-8 23:33
