在单元格中同时显示文本和线条
示例
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