- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于专业报表的一个问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129281)
-- 发布时间：2018/12/25 17:07:00
-- 关于专业报表的一个问题
此主题相关图片如下：b55ccda8-dc70-4dc6-8132-3a0ac2679cce.jpg
如图，如何实现品名列和其余列分行显示？
-- 发布时间：2018/12/25 17:29:00
--
如果是表格，品名单独占一行，然后合并这一行单元格。货号从下一行第一列开始，合并占2列
-- 发布时间：2018/12/25 18:20:00
--
是表格，具体怎么实现呢？
-- 发布时间：2018/12/25 20:21:00
--
例如：
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
rt.Cols.Count = 3
Dim rx As New prt.RenderText
rx.Text = "品名"
rt.Cells(0,0).RenderObject = rx
rx = New prt.RenderText
rx.Text = "货号"
rt.Cells(0,1).RenderObject = rx
rx = New prt.RenderText
rx.Text = "数量"
rt.Cells(0,2).RenderObject = rx
rt.Cells(1,0).SpanCols = 3
rx = New prt.RenderText
rx.Text = "苹果苹果股票苹果"
rt.Cells(1,0).RenderObject = rx
rt.Cells(2,0).SpanCols = 2
rx = New prt.RenderText
rx.Text = "0123456789"
rt.Cells(2,0).RenderObject = rx
rt.Cells(2,0).SpanCols = 2 \'
rx = New prt.RenderText
rx.Text = "1"
rt.Cells(2,2).RenderObject = rx
rt.Style.TextAlignHorz =prt.AlignHorzEnum.Center
Doc.Preview() \'预览报表