关于报表分组问题。

fanren

怎样建立一个固定有30个记录的分组(要用分组,不多加字段).
另怎样用VBA删除分组?

[此贴子已经被作者于2003-12-2 12:45:45编辑过]

zhengjialon

问题提的让人摸不到头脑，报表里的分组是根据你记录里的值来的，不是记录数来的。

fanren

我是同一个报表需要按两种顺序输出。其中一个必须用分组再加两种排序，另一种按一种顺序输出但必须保证每页30个记录。

zhengjialon

每页30个记录你可以在页边距不变的情况下将主体的高度调到正好打印30个记录啊， 或看一下这里：

每页打印的记录数?发贴时间：2002/06/21 11:40pm

++++-------------------------------------------++++
++++ Ms Access Microsoft KB 汉化系列　敬请指正 ++++
++++-------------------------------------------++++

ACC： 如何控制每页打印的记录数
ID： Q119075

--------------------------------------------------------------------------------
在本文中的信息适用于：

Microsoft Access 版本1.0，1.1，2.0，7.0，97
--------------------------------------------------------------------------------

概要
适中： 要求基本的宏，编码，和联合操作性能技巧。

本文描述一种使你能控制报表每页打印记录数的方法。

更多信息
你能通过设置分页符的可见性属性来控制报表每页打印的记录数。 如下例子显示如何在报表的每页打印三个记录：

打开示例数据库 Northwind.mdb (或者 NWIND.MDB 在版本1.x或2.0里 )。

按下面的方法建立一新的宏，而然后保存宏为 Detail Page Break：

　　　宏操作
　　　-------------------------------------------------------
　　　Setvalue
　　　　 项目： [ PageBreak].Visible
　　　　 表达式： IIf([TheCounter] Mod 3 = 0,"True", "False")

按照这些步骤建立一份基于 Suppliers 表的名为 Test1 的报表：

在数据库窗口中，单击报表标签，然后单击新建。

选择 Suppliers 表并单击 OK。

注意： 在版本1.x和2.0中，选择 Suppliers 表，然后单击空白报表。

把如下文本框添加到报表的主体：

　　　　 报表： Test1
　　　　 --------------------------
　　　　 标题： TestReport
　　　　 控件来源： Suppliers

　　　　 文本框：
　　　　　　名称： Address
　　　　　　控件来源： Address
　　　　 文本框：
　　　　　　名称： City
　　　　　　控件来源： City
　　　　 文本框：
　　　　　　名称： Region
　　　　　　控件来源： Region

注意： 在 Microsoft Access 版本 1.x 中，名称属性被称为控件名称属性。

把一个如下属性的文本框添加到主体。 将文本框放置在 Address 控件的正上方。 此控件充当一个报表记录数的计数器：

　　　文本框
　　　　 名称： TheCounter
　　　　 控件来源： =1
　　　　 可见性： 否
　　　　 运行总和： 全部之上


把主体的格式化属性设置为宏 Detail Page Break。

在主体左下角 Address 控件的下面添加一分页控件。

设置分页控件的名称属性为 PageBreak。

预览报表。 报表的第一页应该包含如下三个记录：

　　　 Address　　　　　 City　　　　　　Region
　　　 ----------------------------------------
　　　 49 Gilbert St.　　London
　　　 P.O.Box 78934　　 New Orleans　　 LA
　　　 707 Oxford Rd.　　Ann Arbor　　　 MI

如果最后一个记录丢失或者仅仅部分显示，表明分页控件在报表的主体中不够下方。

你可以通过把本例子 Detail Page Break 宏中的表达式 "mod 3" 改成 "mod x" 来在每页打印任何记录数，x 是你想要每页打印的记录数。 例如，如果你想要每页打印11个记录，将表达改作：


　 IIf([TheCounter] mod 11 = 0, "True", "False")

参考
对于更多关于关于 Setvalue 的信息，使用 Microsoft Access 97 帮助索引搜索“Setvalue 操作”。

对于更多关于关于可见性属性的信息，使用 Microsoft Access 97 帮助索引搜索“可见性属性”。

对于更多关于分页控件的信息，使用 Microsoft Access 97 帮助索引搜索使用微软搜索“page breaks”和“分页控件”。

附加的查询词汇： page break

关键词： kbusage RptsLyt
版本： 1.0 1.1 2.0 7.0 97
平台： WINDOWS
问题类型： kbhowto


最后修正： 1999年4月6日
？ 2000年微软公司。 版权所有。 使用条款。




录入：changechange(CSDN)   责任编辑：cg1

zhengjialon

用VBA删除分组好像不行，帮助里没有相关描述。