Foxtable(狐表)用户栏目专家坐堂 → word模板输出时,怎么根据明细表数据行来对应生成行数,对于空白行直接画斜线。


  共有5049人关注过本帖树形打印复制链接

主题:word模板输出时,怎么根据明细表数据行来对应生成行数,对于空白行直接画斜线。

帅哥哟,离线,有人找我吗?
HB2022
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:128 威望:0 精华:0 注册:2022/1/5 16:38:00
  发帖心情 Post By: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() '预览报表


 回到顶部