专家坐堂-如何将"复杂图文"放置在单元格内? 已解决Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc \'定义一个报表

Dim rt As New prt.RenderTable() \'定义一个表格对象

Dim rpar As New prt.RenderParagraph() \'定义一个段落对象

Dim f As New Font(rpar.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体 \'

rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) \'将表格的颜色设为深灰色

rt.Rows.Count = 3 \'设置行数

rt.Cols.Count = 3 \'设置列数

rt.Width = 150 \'设置表格的宽度

rt.Height = 150 \'设置表格的高度

rt.x=50

rt.y=10

rt.Cells(1, 2).Style.BackColor = Color.Crimson

rt.Cells(0, 1).Style.BackColor = Color.BlueViolet

rt.Cells(0, 1).Style.Borders.All = New prt.Linedef(1, Color.Green)

rpar.Content.AddText("这是一个段落. 现在是正常文本. ")

rpar.Content.AddText("现在的文本是加粗的. ", f)

rpar.Content.AddText("这一句是红色的. ", Color.Red)

rpar.Content.AddText("这一句是上标形式,上标不再是难题. ", prt.TextPositionEnum.Superscript)

rpar.Content.AddText("现在字体加粗,而且是红色. ", f, Color.Red)

rpar.Content.AddText("现在字体加粗,红色,而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript)

rpar.Content.AddText("现在又是正常的文本了. ")

rpar.Content.AddText("最后,我们来插入一个图标: ")

rpar.Content.AddImage(getimage("logon.ico"))

rpar.Content.AddText(".")

rt.Cells(1,1).RenderObject = rpar \'将单元格内容设置为图片对象rm

doc.Body.Children.Add(rt) \'将文本对象加入到报表

Doc.Preview() \'预览报表