access报表划线与分组

1、ACCESS报表画线实例(二)VBA画线     在报表视图中已将所有的控件排列整齐，现在需要在报表相关“节“中的FORMAT事件中，写入画线的相关代码。        进入报表设计窗口，进入页面页眉节的属性对话框，点击“事件“，找到“格式化”，点击最右边的“三个点”的按钮， 进入VBE窗口，将代码粘贴进去（主体FROMAT事件也一起粘贴进去了）。 代码如下： 说明：代码中+70或-70，是因为如果页面页眉或主体节，调整高度大时，根据控件边框画线有间断的情况，可根据实际情况适当调整，使画线连续。

2、 Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)     Dim a As Control    '设置线度量单位    Me.scalemode = 3 (可自己选择度量单位) '设置线(宽度)     Me.DrawWidth = 3     '设置线的类型     

3、;Me.DrawStyle = 0     For Each a In Me.Controls         If a.ControlType = acLabel And a.Tag = "left" Then             '画顶线        

4、     Me.Line (a.Left, 0)-(a.Left + a.Width + 70, 0)             '画竖线             Me.Line (a.Left, 0)-(a.Left, a.Height + 70)     &#

5、160;       '画底线             Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width + 70, a.Height + 70)         ElseIf a.ControlType = acLabel And a.Tag = "LR&qu

6、ot; Then             '画顶线             Me.Line (a.Left, 0)-(a.Left + a.Width, 0)             '画左竖线   &#

7、160;         Me.Line (a.Left, 0)-(a.Left, a.Height + 70)             '画右竖线             Me.Line (a.Left + a.Width, -70)-(a.Left + a.

8、Width, a.Height + 70)             '画底线             Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width, a.Height + 70)         End If 

9、0;   Next End Sub Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)     Dim a As Control     '设置线 (宽度)，     Me.DrawWidth = 12     '设置线的类型     Me.DrawStyle = 0

10、60;   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)     

11、        Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width + 70, a.Height + 70)         ElseIf a.ControlType = acTextBox And a.Tag = "LR" Then            &#

12、160;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.Le

13、ft + a.Width, a.Top - 70)             Me.Line (a.Left, a.Height + 70)-(a.Left + a.Width, a.Height + 70)          End If      Next End Sub预览报表结果： 下面进行分组操作： 进入报表设计窗口，点击鼠标右键， 选择排序与分组，

14、选择分组字段， 报表设计窗口，出现组页眉（货主名称页眉）和组页脚（货主名称页脚）， 货主名称页眉，在这用不到，可设高度为0，或设置属性中的可见属性为否。 既然分组了，得合计数据，例如需合计运货费，在货主名称页脚增加一文本框，文本框中录入“SUM(运货费)“，将文本框与主体节的“运货费”文本框对齐即可。再新增一标签录入“合计”，在适当位置即可。 当然，货主名称页脚也需要画线的，同上在货主名称页脚的FORMAT事件中粘贴画线代码。但货主名称页脚画线会根据主体节的文本框，自动画线对齐，我们只需要增加所要的文本框，与主体节相关文本框适当对齐即可 报表页脚可参考“货主名称页脚”设置。 预览效果如下： 加

15、入报表页脚“总计”和“运货费”预览图： 需注意，组页脚和报表页脚的高度得适当，高度过小，“合计”“总计”行下面的横线会丢失，适当调整高度可解决。 至此报表画线，可一劳永逸了。转载自：ACCESS报表画线实例(二)VBA画线-Access软件网转载自：解决Access中分组报表的问题-软件频道-Access-天极网如何解决Access 2000/2002中的分组报表问题其实Access 2000/2002本身带有该功能，现将解决该问题的方法介绍如下。 做的是一个计量方面的数据库，每个月都要对各相关部门下发计量检测通知单。 所做查询的字段如下：计量器具名称、本厂编号、测量范围、存放地点、保管人、使用部门、检定日期。 其中“使用部门”是需要分组分页打印的，“检