- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127177)
-- 发布时间：2018/11/7 17:06:00
-- 表格
老师，您好，我想做一张附件那样的序列表，要怎么写报表代码？
此主题相关图片如下：序列表.png
-- 发布时间：2018/11/7 17:16:00
--
参考
http://www.foxtable.com/webhelp/scr/1414.htm
具体问题，实例发上来测试
-- 发布时间：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 \'将文本对象放置在单元格中
Next
我这么写，打出来只填到40，然后想再从第三行填 41到80再从第五行81填到120 。。。。。。就不知怎么写，这样也写不了项目。
-- 发布时间：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()