请教如何能使报表竖线条自动加长？

luyufu

我做了一个报表，内有多个文本框，是个会自动变大小的文本框，每个文本框边都画有一个竖线条，线条具有固定高度值，现请教各位师傅，在报表内某个文本框数据较多而该文本框自动增加高度时，文本框边的线条也会随着文本框的高度自动加高？（如：线条及文本框的高度均设为0.6厘米,现文本框因数据较多而自动变成两行,高度也变为1厘米了,如何使线条也自动加长为1厘米。）

fan0217

使用边框作为表格线。

luyufu

谢谢版主,我试过用边框画线条,但画出来的线条不规则。请问版主，线条控件的“上边距”、“宽度”和“高度”的属性怎么写？

fan0217

Line 方法

参阅应用于[url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthLine.htm#example]示例[/url]特性

Line 方法用于当 [url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acevtPrint.htm]Print[/url] 事件发生时，在 [url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acobjReport.htm]Report[/url] 对象上画线条或矩形。

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 函数指定颜色。

fan0217

论坛上好像有个自动画线的例子，搜索一下吧！