Foxtable(狐表)用户栏目专家坐堂 → 关于套打


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

主题:关于套打

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


加好友 发短信
等级:幼狐 帖子:120 积分:1624 威望:0 精华:0 注册:2008/10/6 15:10:00
关于套打  发帖心情 Post By:2017/7/18 16:47:00 [只看该作者]

请问各位老师,在套打的的表格中能否设置表格前两行不显示网格线,后面几行显示网格线?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/18 17:27:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
'下面的代码向表格中填入值
For r As Integer = 0 To 5
    For c As Integer = 0 To 5
        Dim rx As New prt.RenderText '定义一个文本对象
        rx.Text = r & "," & c '为文本对象设置内容
        rt.Cells(r, c).RenderObject = rx '将文本对象放置在单元格中
    Next
Next
rt.rows(0).Style.GridLines.bottom = New prt.Linedef(0.5, color.white) '设置网格线
rt.rows(1).Style.GridLines.bottom = New prt.Linedef(0.5, color.white) '设置网格线

doc.Preview() '预览报表

 回到顶部
帅哥哟,离线,有人找我吗?
niu_niu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:120 积分:1624 威望:0 精华:0 注册:2008/10/6 15:10:00
  发帖心情 Post By:2017/7/19 10:11:00 [只看该作者]

已解决,谢谢

 回到顶部