| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何在专业报表的单元格中嵌套表格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130530) |
| -- 作者：dtcaoqian -- 发布时间：2019/1/24 14:23:00 -- 如何在专业报表的单元格中嵌套表格 请问，如何在专业报表的单元格中嵌套表格 |
| -- 作者：有点蓝 -- 发布时间：2019/1/24 16:00:00 -- 单元格本身就是一个容器，直接添加一个表格即可 Dim doc As New PrintDoc Dim rt As New prt.RenderTable Dim ra As prt.RenderArea Dim rx As prt.RenderText rt.Style.GridLines.All = New prt.LineDef rt.CellStyle.Spacing.All = 1 \'单元格内容和网格线距离1毫米 rt.Cols.Count = 3 \'总列数为3 ra = rt.Cells(0,0).Area \'引用单元格的容器 Dim rt2 As New prt.RenderTable() rt2.Style.GridLines.All = New prt.Linedef(Color.DarkGray) \'将表格的颜色设为深灰色 rt2.Rows.Count = 3 \'设置行数 rt2.Cols.Count = 3 \'设置列数 rt2.Width = 50 \'设置表格的宽度 rt2.Height = 50 \'设置表格的高度 rt2.Cells(1, 2).Style.BackColor = Color.Crimson rt2.Cells(0, 1).Style.BackColor = Color.BlueViolet ra.Children.Add(rt2) \'加入文本到RenderArea中 doc.Body.Children.Add(rt) Doc.Preview() |
| -- 作者：dtcaoqian -- 发布时间：2019/1/24 20:23:00 -- 太感谢了。 |