access报表划线与分组.docx

ACCESS报表画线实例(二)VBA画线在报表视图中已将所有的控件排列整齐，现在需要在报表相关“节“中的FORMAT事件中，写入画线的相关代码。进入报表设计窗口，进入页面页眉节的属性对话框，点击“事件“，找到“格式化”，点击最右边的“三个点”的按钮，进入VBE窗口，将代码粘贴进去（主体FROMAT事件也一起粘贴进去了）。
代码如下：说明：代码中+70或-70，是因为如果页面页眉或主体节，调整高度大时，根据控件边框画线有间断的情况，可根据实际情况适当调整，使画线连续。PrivateSub页面页眉_Format(CancelAsInteger,FormatCountAsInteger)DimaAsControl'设置线度量单位Me.scalemode=3(可自己选择度量单位)'设置线(宽度)Me.DrawWidth=3'设置线的类型Me.DrawStyle=0ForEachaInMe.ControlsIfa.ControlType=acLabelAnda.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)ElseIfa.ControlType=acLabelAnda.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)EndIfNextEndSubPrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)DimaAsControl
'设置线(宽度)，Me.DrawWidth=12'设置线的类型Me.DrawStyle=0ForEachaInMe.ControlsIfa.ControlType=acTextBoxAnda.Tag="left"ThenMe.Line(a.Left,-70)-(a.Left,a.Height+70)Me.Line(a.Left,a.Height+70)-(a.Left+a.Width+70,a.Height+70)ElseIfa.ControlType=acTextBoxAnda.Tag="LR"ThenMe.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)EndIfNextEndSub
预览报表结果：下面进行分组操作：进入报表设计窗口，点击鼠标右键，选择排序与分组，选择分组字段，报表设计窗口，出现组页眉（货主名称页眉）和组页脚（货主名称页脚），
货主名称页眉，在这用不到，可设高度为0，或设置属性中的可见属性为否。既然分组了，得合计数据，例如需合计运货费，在货主名称页脚增加一文本框，文本框中录入“＝SUM([运货费])“，将文本框与主体节的“运货费”文本框对齐即可。再新增一标签录入“合计”，在适当位置即可。当然，货主名称页脚也需要画线的，同上在货主名称页脚的FORMAT事件中粘贴画线代码。但货主名称页脚画线会根据主体节的文本框，自动画线对齐，我们只需要增加所要的文本框，与主体节相关文本框适当对齐即可报表页脚可参考“货主名称页脚”设置。预览效果如下：

加入报表页脚“总计”和“运货费”预览图：需注意，组页脚和报表页脚的高度得适当，高度过小，“合计”“总计”行下面的横线会丢失，适当调整高度可解决。至此报表画线，可一劳永逸了。

转载自：ACCESS报表画线实例(二)VBA画线-Access软件网

转载自：解决Access中分组报表的问题-软件频道-Access-天极网

如何解决Access2000/2002中的分组报表问题

其实Access2000/2002本身带有该功能，现将解决该问题的方法介绍如下。
做的是一个计量方面的数据库，每个月