增加一行，比如效果
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 = 4 '设置行数
rt.Cols.Count = 3 '设置列数
rt.Width = 150 '设置表格的宽度
rt.Height = 150 '设置表格的高度
rt.Rows(3).Height = 2
rt.Rows(2).Style.Borders.Bottom = New prt.LineDef("0.5mm", Color.Red)
rt.Rows(3).Style.Borders.Bottom = New prt.LineDef("0.5mm", Color.Red)
Doc.Preview() '预览报表
加好友 
发短信
Post By：2018/5/26 10:06:00 [显示全部帖子]
