以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]能不能往报表单元格内再加入表格？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143586)

--  作者：zto001 --  发布时间：2019/11/28 18:51:00 --  [求助]能不能往报表单元格内再加入表格？ Dim doc As New PrintDoc \'定义一个报表 doc.PageSetting.Width =76 \'纸张宽度为100毫米 doc.PageSetting.Height =130 \'纸张高度为120毫米 Dim rt As New prt.RenderTable() \'定义一个表格对象 我想向rt.Cells(5,1)里面再添加一个表格进去。行吗？

--  作者：有点蓝 --  发布时间：2019/11/29 8:44:00 --   可以，放到容器中：http://www.foxtable.com/webhelp/topics/1220.htm 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 \'将文本对象放置在单元格中         Next     Next     ra.Children.Add(rt2) \'加入文本到RenderArea中 Next doc.Body.Children.Add(rt) Doc.Preview()