以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  word模板输出时，怎么根据明细表数据行来对应生成行数，对于空白行直接画斜线。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174259)
--  作者：cnsjroom
--  发布时间：2022/1/7 20:05:00
--  word模板输出时，怎么根据明细表数据行来对应生成行数，对于空白行直接画斜线。
word模板输出时，怎么根据明细表数据行来对应生成行数，对于空白行直接画斜线。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:呈请采取网络信息查询监控措施报告书.zip

比如当前明细表只有一行数据，那么余下的2-10就画一条斜线……
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/1/8 10:14:00
--  
word模板没有办法动态生成行数。

画斜线这个我也不会
--  作者：HB2022
--  发布时间：2022/1/8 10:55:00
--  
用专业报表吧:
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
rt.Width = 90 \'表宽为90毫米
rt.Height = 90 \'表高为90毫米
rt.Rows.Count = 10 \'设置行数
rt.Cols.Count = 5 \'设置列数


Dim ln As New prt.RenderLine(0,0,1,1,New prt.Linedef) \'定义一个线条
ln.Width = "Parent.Width"
ln.Height = "Parent.Height"
For n1 As Integer  = 1 To 9
    
    rt.Cells(n1,n1).RenderObject = ln \'将线条加入到单元格中.
    ln =New prt.RenderLine(0,0,1,1,New prt.Linedef) \'定义一个线条
Next


Doc.Preview() \'预览报表
--  作者：hongyaoyu2019
--  发布时间：2022/2/11 11:41:00
--  
这样生成的报表，能不能对应一个模板文件的指定空白位置输出？
--  作者：有点酸
--  发布时间：2022/2/11 11:44:00
--  
用专业报表或excel报表，方便灵活