在单元格中同时显示文本和线条

示例

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderTable() '定义一个表格对象
Dim
ra As prt.RenderArea
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
ra = rt.Cells(
0,0).Area '引用第一个单元格的容器。
rt.Style.GridLines.All = New prt.LineDef
'将网格线类型设为默认类型
rt.Width =
90 '表宽为90毫米
rt.Height =
90 '表高为90毫米
rt.Rows.Count =
3 '设置行数
rt.Cols.Count =
3 '设置列数
'加入线条

Dim
ln As New prt.RenderLine(0,0,1,1,New prt.Linedef)
ln.Width =
"Parent.Width"
ln.Height =
"Parent.Width"
ra.Children.Add(ln)

'加入第一个文本

Dim
rx As New prt.RenderText
rx.Text =
"产品"
rx.X =
"Parent.Width - 15"
rx.y =
"5"
ra.Children.Add(rx)

'加入第二个文本

rx = New prt.RenderText
rx.Text =
"客户"
rx.X =
"5"
rx.y =
"Parent.Height - 10"
ra.Children.Add(rx)
Doc.Preview()
'预览报表

执行结果:

实际使用的时候,请根据需要调整文本的坐标位置。


本页地址:http://www.foxtable.com/webhelp/topics/1224.htm