[讨论][求助]ACCESS2000。第83问：再报表中为每列添加一条竖线

wdh008

我使用论坛出版的ACCESS 200问。使用第83问解决报表加竖线问题时。发现自动加竖线的文本框。只能是预先调整好大小的才可以。也就是说如果文本框字段属性是可扩大的时候，当字段扩大后，自动加的竖线就不能跟着变长咯。郁闷阿郁闷。当然我这里也有论坛里面发表的自动画线的例子，但关键是我无法看懂，而且只能用在固定的地方。我认为我可能是指定画线的长度变量取的不对。一时难以说清。下面这个是例子。

wdh008

终于解决拉。不用回答咯各位。现在我归纳一下报表画竖线的方法：

土办法：在要画竖线的地方画一条竖线。

稍微好点的：access200问第83问中的：line(x,y)-(x1,y1)方式。

Line 方法
Line 方法用于当 Print 事件发生时，在 Report 对象上画线条或矩形。
expression.Line(flags, x1, y1, x2, y2, color)

expression

      必需。返回“应用于”列表中的一个对象的表达式。

flags     必需 Integer 型。

x1    必需 Single 型。该值是线条或矩形起点的坐标。所用的度量由 object   参数指定的 Report 对象的 Scale 属性（ScaleMode, ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth）来确定。。如果忽略该参数，线条从 CurrentX 属性指定的位置开始。

y1    必需 Single 型。该值是线条或矩形起点的坐标。所用的度量由 object   参数指定的 Report 对象的 Scale 属性（ScaleMode、ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth）来确定。如果忽略该参数，线条从 CurrentY 属性指定的位置开始。

x2     必需 Single 型。其值是所画线条终点的坐标。该参数是必需的。

y2     必需 Single 型。其值是所画线条终点的坐标。该参数是必需的。

color     必需 Long 型。其值是用于画线的 RGB（红绿蓝）颜色。如果忽略该参数，则使用 ForeColor 属性的值。也可以使用 RGB 函数或 QBColor 函数指定颜色。

够档次的：



这个估计是广为流传拉。不过想看懂。得有点VBA知识才行。我是看不懂那些的。而且套用的话。表头什么的要注意才行。

懒人250：

把这个代码复制到窗体里面。什么都不用改。见框画框。不过得注意文本框距离调整

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Dim ctrtextbox As Control
For Each ctrtextbox In Me.Section(acDetail).Controls
       Me.Line ((ctrtextbox.Left), ctrtextbox.Top)-((ctrtextbox.Left + ctrtextbox.Width), Me.Height), 0, B
Next ctrtextbox
      End Sub

wdh008

抛砖引玉

还有别的方法的希望各位不要保留。讨论讨论

skylark

和你的第一种相似:

http://www.accessoft.com/Article_Show.asp?ArticleID=201

无忧

谢谢

wangwang

学习学习

fnsmydyang

好方法，学习了.