表格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2000人关注过本帖树形打印复制链接主题：表格

cjl333333333

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1706 威望：0 精华：0 注册：2015/2/3 17:04:00

表格

Post By：2018/11/7 17:06:00 [只看该作者]

老师，您好，我想做一张附件那样的序列表，要怎么写报表代码？

此主题相关图片如下：序列表.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

cjl333333333

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1706 威望：0 精华：0 注册：2015/2/3 17:04:00

Post By：2018/11/7 17:47:00 [只看该作者]

就是想用代码打印这个表，项目不知怎么做。

Dim rt2 As New prt.RenderTable() '定义一个表格对象

rt2.Rows.Count = 40 '设置总行数

RT2.Cols.Count = 10 '设置总列数

RT2.Height = 230'设置表格的高度为80毫米

RT2.Style.FontSize = 10 '字体大小为8磅

RT2.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米

RT2.Style.Spacing.Bottom = 2 '和下面的对象(表格)距离3毫米

RT2.Style.WordWrap = True

rt2.Style.GridLines.All = New prt.Linedef '设置网格线

rt2.Cols(0).Width = 10

rt2.Cols(2).Width = 10

rt2.Cols(4).Width = 10

rt2.Cols(6).Width = 10

rt2.Cols(8).Width = 10

For r As Integer = 0 To 40

Dim rx As New prt.RenderText '定义一个文本对象

rx.Text = r '为文本对象设置内容

rt2.Cells(r, 0).RenderObject = rX '将文本对象放置在单元格中

我这么写，打出来只填到40，然后想再从第三行填 41到80再从第五行81填到120 。。。。。。就不知怎么写，这样也写不了项目。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

下一主题 >> << 上一主题

主题：表格