以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  RenderTable如何设置双实线  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119518)

--  作者：sunion --  发布时间：2018/5/26 9:43:00 --  RenderTable如何设置双实线 在进行doc制表时，如果遇到一个表的第一行下边框需要双实线，如何设置代码呢？ 这个代码是单实线的，如何修改呢，Linedef的第三个参数好像只能设置单实线和虚线 rt.rows(0).Style.GridLines.bottom = New prt.Linedef(0.5, color.red) \'设置网格线

--  作者：有点蓝 --  发布时间：2018/5/26 10:06:00 --   增加一行，比如效果 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() \'预览报表

--  作者：sunion --  发布时间：2018/5/26 10:42:00 --   这个做法好聪明