[access报表]如何在报表中加横竖线

时　间:2008-11-27 10:59:00
作　者:   ID：54  城市：东营
摘　要:如何在报表中加横竖线
正　文:

1、在设计模式里打开该报表，把要加左竖线、右竖线的TextBox的Tag属性都改成left，把要同时加左右竖线的TextBox的Tag属性改成LR。
2、然后，在主体的格式化事件里输入如下代码：

Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)
Dim a As Control
    
    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, -70)-(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, -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.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

    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

=============================

Line 方法
                

Line 方法用于当 Print 事件发生时，在 Report 对象上画线条或矩形。

语法

object.Line [[Step](x1, y1)] – [Step](x2, y2)[, [color][, B[F]]]

只能在事件过程或宏中使用此方法，而事件过程和宏是由报表节的 OnPrint 或 OnFormat 事件属性，或报表的 OnPage 事件属性所指定。

Line 方法有下列参数：

参数 说明 
object 要在上面画线条或矩形的 Report 对象。 
Step 表示起始点坐标是相对于当前图形位置的一个关键字，当前图形位置由 object 参数的 CurrentX 和 CurrentY 属性给出。 
x1, y1 Single 值，表示线条或矩形的起始点坐标。所用的度量单位由 object 参数所指定的 Report 对象的 Scale 属性（ScaleMode、ScaleLeft 和 ScaleTop、 ScaleHeight 和 ScaleWidth）来确定。如果忽略此参数，线条将由 CurrentX 和 CurrentY 属性所指示的位置开始。 
Step 表示结束点坐标相对于线条起始点的一个关键字。 
x2, y2 Single 值，表示所画线条结束点的坐标。必选。 
color Long 值，代表画线条所用的 RGB (red-green-blue) 颜色。如果忽略此参数，将使用 ForeColor 属性的值。也可以使用 RGB 函数或 QBColor 函数来指定颜色。 
B 选项，表示使用相对于矩形对角的坐标来创建一个矩形。 
F 没有 B 选项，则不能使用 F 选项。如果使用了 B 选项，F 选项指定矩形用画矩形同样的颜色来填充此矩形。如果使用了 B 选项而没有使用 F 选项，矩形将由 FillColor 和 BackStyle 属性的当前设置指定的颜色填充。矩形和线条的 BackStyle 属性默认值是 Normal。 

说明

要连接两条所画的线条，请确保后一条线以前一条线的结束点作为起点。

线条的宽度取决于 DrawWidth 属性设置。线条或矩形在背景上的作图方式取决于 DrawMode 和 DrawStyle 属性的设置。

当应用 Line 方法时，CurrentX 和 CurrentY 属性将设置为由 x2 和 y2 参数所指定的结束点。