Foxtable(狐表)用户栏目专家坐堂 → 表格


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

主题:表格

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/7 17:16:00 [显示全部帖子]

参考

 

http://www.foxtable.com/webhelp/scr/1414.htm

 

具体问题,实例发上来测试


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/7 18:08:00 [显示全部帖子]

参考代码

 

Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb As Table = Tables("表A")
Dim lieshu = 3
Dim jiange = 2
Dim hangshu = 5
rt.Cols.Count = lieshu * jiange
Dim idx As Integer = 0
For i As Integer = 1 To lieshu*2 Step 2
    For j As Integer = 1 To hangshu
        idx += 1
        rt.Cells(j-1,i-1).text = idx
        rt.Cells(j-1,i).text = tb.Rows(idx-1)("第一列")
    Next
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()


 回到顶部