比如：http://www.foxtable.com/webhelp/topics/1207.htm
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 3 '设置行数
rt.Cols.Count = 3 '设置列数
rt.Width = 150 '设置表格的宽度
rt.Height = 150 '设置表格的高度
rt.Cells(1, 2).Style.BackColor = Color.Crimson
rt.Cells(0, 1).Style.BackColor = Color.BlueViolet
Dim rx As New prt.RenderText '定义一个文本对象
rx.Text = "123"
rx.Style.Font = New Font("宋体", 16, FontStyle.Bold)
rx.Style.TextColor = Color.white
rt.Cells(1, 2).RenderObject = rx '将文本对象放置在单元格中
Doc.Preview() '预览报表
加好友 
发短信
Post By：2019/9/25 11:57:00 [显示全部帖子]
