[求助]能不能往报表单元格内再加入表格？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim ra As prt.RenderArea

Dim rm As prt.RenderImage

Dim rx As prt.RenderText

rt.Style.GridLines.All = New prt.LineDef

rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米

rt.Cols.Count = 3 '总列数为3

For i As Integer = 0 To 1

ra = rt.Cells(i,0).Area '引用单元格的容器

'设置文本对象

Dim rt2 As New prt.RenderTable

For r As Integer = 0 To 5

For c As Integer = 0 To 5

rx = New prt.RenderText '定义一个文本对象

rx.Text = r & "," & c '为文本对象设置内容

rt2.Cells(r, c).RenderObject = rx '将文本对象放置在单元格中

ra.Children.Add(rt2) '加入文本到RenderArea中

doc.Body.Children.Add(rt)

Doc.Preview()

主题：[求助]能不能往报表单元格内再加入表格？