access2007开发教程第7章第3节

时　间:2011-10-12 09:18:16
作　者:Access软件网编著   ID：8  城市：上海  QQ：2851379730
摘　要:7.3 动态报表的制作
正　文:

7.3 动态报表的制作

    我们接着上一小节继续进行。第一步：单击模块窗格，进入此前第四章建立的 variable 模块的代码编辑界面，如下图所示：

    新起一行，输入以下代码：

       '在模块中声明报表数据源的全局变量
Public strRptReSource As String

    保存输入，关闭模块。
    第二步：切换到窗体选项卡，直接进入 frmBxmx_child 窗体的代码编辑界面，会看到有这样一段代码：

Public Sub FindEnd()
    Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "报销编号", True)
End Sub

    如上所示，在第二行与第三行中加这样一行代码：

' 记录下来报表的数据来源
strRptReSource = Forms!usysfrmMain!frmChild.Form.RecordSource

    整段代码实际上就是给修改正了这个样子：

Public Sub FindEnd()
    Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx"," 报销编号 ", True)
     '记录下来报表的数据来源
    strRptReSource = Forms!usysfrmMain!frmChild.Form.RecordSource
End Sub

    确认输入无误后，保存输入并关闭该窗体。
    第三步：切换到报表窗格，进入 rptBxmx 报表设计界面，打开报表属性，单击事件选项卡，进入打开事件的代码编辑界面，如下图所示：

在鼠标光标处输入以下代码，如下图所示：

   '赋上查找后的报表数据源
    If strRptReSource = "" Then
        Me.RecordSource = Forms!usysfrmMain!frmChild.Form.RecordSource
    Else
        Me.RecordSource = strRptReSource
End If

 保存输入，关闭报表，就这样，动态报表的制作就完成了。可以实际测试一下，比如，我们在报销管理界面，执行类别名称等于住宿费的查询，之后再单击预览按钮，如下图所示：

    现在大家就会发现现在的报表与之前的报表的不同之处，之前的报表无论你如何更换查询条件，单击预览按钮之后，报表始终是一样的，而现在则可以随查询条件的不同而不同，从这个意义上说，之前的报表即是静态报表，当前的可以称为动态报表。
    当前的报表是基于类别进行的统计的，如果我想浏览或者打印按人员进行的统计的报表，又该如何做呢？如何让系统提供一个可以切换的面板呢？我们在下一节将着手解决这个问题。
 

相关索引: 上一节 下一节