access报表划线与分组.doc

ACCESS报表画线实例(二)VBA画线 在报表视图中已将所有的控件排列整齐，现在需要在报表相关“节“中的FORMAT事件中，写入画线的相关代码。 进入报表设计窗口，进入页面页眉节的属性对话框，点击“事件“，找到“格式化”，点击最右边的“三个点”的按钮， 进入VBE窗口，将代码粘贴进去（主体FROMAT事件也一起粘贴进去了）。 代码如下： 说明：代码中+70或-70，是因为如果页面页眉或主体节，调整高度大时，根据控件边框画线有间断的情况，可根据实际情况适当调整，使画线连续。 Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer) Dim a As Control 设置线度量单位Me.scalemode = 3 (可自己选择度量单位) 设置线(宽度) Me.DrawWidth = 3 设置线的类型 Me.DrawStyle = 0 For Each a In Me.Controls If a.ControlType = acLabel And a.Tag = left Then 画顶线 Me.Line (a.Left, 0)-(a.Left + a.Width + 70, 0) 画竖线 Me.Line (a.Left, 0)-(a.Left, a.Height + 70) 画底线 Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width + 70, a.Height + 70) ElseIf a.ControlType = acLabel And a.Tag = LR Then 画顶线 Me.Line (a.Left, 0)-(a.Left + a.Width, 0) 画左竖线 Me.Line (a.Left, 0)-(a.Left, a.Height + 70) 画右竖线 Me.Line (a.Left + a.Width, -70)-(a.Left + a.Width, a.Height + 70) 画底线 Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width, a.Height + 70) End If Next End Sub Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) Dim a As Control 设置线 (宽度)， Me.DrawWidth = 12 设置线的类型 Me.DrawStyle = 0 For Each a In Me.Controls If a.ControlType = acTextBox And a.Tag = left Then Me.Line (a.Left, -70)-(a.Left, a.Height + 70) Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width + 70, a.Height + 70) ElseIf a.ControlType = acTextBox And a.Tag = LR Then Me.Line (a.Left, -70)-(a.Left, a.Height + 70) Me.Line (a.Left + a.Width, -70)-(a.Left + a.Width, a.Height + 70) Me.Line (a.Left, a.Top - 70)-(a.Left + a.Width, a.Top - 70) Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width, a.Height + 70) End If Next End Sub预览报表结果： 下面进行分组操作： 进入报表设计窗口，点击鼠标右键， 选择排序与分组，选择分组字段， 报表设计窗口，出现组页眉（货主名称页眉）和组页脚（货主名称页脚）， 货主名称页眉，在这用不到，可设高度为0，或设置属性中的可见属性为否。 既然分组了，得合计数据，例如需合计运货费，在货主名称页脚增加一文本框，文本框中录入“SUM(运货费)“，将文本框与主体节的“运货费”文本框对齐即可。再新增一标签录入“合计”，在适当位置即可。 当然，货主名称页脚也需要画线的，同上在货主名称页脚的FORMAT事件中粘贴画线代码。但货主名称页脚画线会根据主体节的文本框，自动画线对齐，我们只需要增加所要的文本框，与主体节相关文本框适当对齐即可 报表页脚可参考“货主名称页脚”设置。 预览效果如下： 加入报表页脚“总计”和“运货费”预览图： 需注意，组页脚和报表页脚的高度得适当，高度过小，“合计”“总计”行下面的横线会丢失，适当调整高度可解决。 至此报表画线，可一劳永逸了。转载自：ACCESS报表画线实例(二)VBA画线-Access软件网转载自：解决Access中分组报表的问题-软件频道-Access-天极网如何解决Access 2000/2002中的分组报表问题其实Access 2000/2002本身带有该功能，现将解决该问题的方法介绍如下。 做的是一个计量方面的数据库，每个月都要对各相关部门下发计量检测通知单。 所做查询的字段如下：计量器具名称、本厂编号、测量范围、存放地点、保管人、使用部门、检定日期。 其中“使用部门”是需要分组分页打印的，“检定日期”为参数字段。在用使用向导创建报表后，将所需字段导入报表，先在菜单“视图”中选中“排序与分组”，在“字段/表达式”中填入所需分组的字段，并在“组页眉”和“组页脚”中填入“是”，在“保持同页”中填入“所有的组”。 然后单击“