<<< 返回 access911.net 编程静态资料库索引页

如何在报表中为每列加一条竖线?如何用LINE画网格线?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-3-27  浏览人次:5251


专题地址:http://access911.net/fixhtm/73FAB41E15DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何在报表中为每列加一条竖线《报表》
如何在报表中为每列加一条竖线?如何用LINE画网格线?《报表》

 


问题:

如何在报表中为每列加一条竖线

 


回答:

1、在设计模式里打开该报表,把要加左竖线、右竖线的TextBox的Tag属性都改成left,把要同时加左右竖线的TextBox的Tag属性改成l__R。
2、然后,在主体的格式化事件里输入如下代码:
Private Sub Detail_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, 0)-(a.Left, a.Height)
        ElseIf a.ControlType = acTextBox And a.Tag = "L__R" Then
            Me.Line (a.Left, 0)-(a.Left, a.Height)
            Me.Line (a.Left + a.Width, 0)-(a.Left + a.Width, a.Height)
        End I.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB41E15DC.htm

 


上一篇:如何在报表中每隔N行显示一条粗线

下一篇:如何制作复杂报表——利用Excel输出复杂报表

2017年2月22日生成静态资料