关于专业报表的一个问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

例如：

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 = "苹果苹果股piao苹果"

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() '预览报表

主题：关于专业报表的一个问题