Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 专业报表设计巧用rows.Count


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

主题：[分享] 专业报表设计巧用rows.Count
帅哥哟，离线，有人找我吗？
程兴刚
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00 		[分享] 专业报表设计巧用rows.Count  发帖心情 Post By：2011/1/3 0:48:00 [只看该作者]

专业报表中，设计时很多狐友都在引用行或单元格时，都直接指定行数，比如：rt.cells(0,0)或rt.rows(0)，由于专业报表设计过程就像贺老师说的“就像堆积木一样 ”，当您在设计时，需要在前面的某一位置插入一行，或者增加一个分组行，或者后来想嵌套更多层次的分组行，那么，这种直接以树枝形式引用行位置的地方都必须一个一个进行修改，某些时候容易出错，调试也麻烦，在这里介绍一个巧用rows.Count解决的办法，这样您可以在设计的时候从任意位置插入行，而不需要修改其他代码：

'''
Dim doc As New PrintDoc() '定义一个报表
'doc.PageSetting.Width = 210 '纸张宽度为210毫米
'doc.PageSetting.Height = 120 '纸张高度为120毫米
'doc.AutoRotate = False '禁止自动旋转打印内容
'doc.PageSetting.Landscape = True '横向打印
Doc.PageSetting.LeftMargin = 25 '设置左边距
Doc.PageSetting.RightMargin = 15 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt.Style.Spacing.Top = 4 '表格和前面对象的垂直间隔为4毫米
rt.Style.Spacing.Bottom = 10 '表和和后续对象的垂直间隔为10毫米
rt.Style.Spacing.All = 1 报表所有网格线为1mm
rt.y = "20mm"
rt.Style.GridLines.All = New Prt.LineDef(0.5,Color.Black)
rt.Style.GridLines.Horz = new Prt.LineDef(Color.Black)
rt.Style.GridLines.Vert = new Prt.LineDef(Color.Black)
rt.Rows.Count = 1 '设置行数，需要注意的是，新增报表总行数设置为1行
rt.Cols.Count = 7 '设置列数，列数根据您的需要
rt.cells(rt.Rows.Count-1,0).Text ="北京燕化集资建房幸福新村1#楼工程班组结算单"，因为总行数为1行，所以首次设置内容的时候，引用行位置为rt.Rows.Count-1

rt.Rows(rt.Rows.Count-1).Height = 13 & "mm" ‘设置首行高度为13mm
rt.Rows(rt.Rows.Count-1).Style.GridLines.All = new Prt.LineDef(0,Color.Black) ’设置首行所有网格线为0——无网格线
rt.rows(rt.Rows.Count-1).Style.Font = New Font("隶书", 18,FontStyle.bold) '设置文本对象的字体
rt.Cells(rt.Rows.Count-1,0).SpanCols = 7 '第1行第所有单元格为一个完整单元格。

rt.cells(rt.Rows.Count,0).Text = "部门或姓名：" & e.Form.Controls("ComboBox1").Value & "结算清单"

    '关键在于上面这一行，这里设置内容引用行位置的时候，直接rt.Rows.Count，这样专业报表也就自动增加了1行，因为引用位置没有减一，也就是抓住了专业报表设置内容自动增加行的特性。
rt.Cells(rt.Rows.Count-1,0).SpanCols = 7 '第2行第1个单元格向右合并7列，

    '而到了这里，直接给最后行设置内容而不需要增加行，所以在这里必须减1，所以引用行位置因为rt.Rows.Count-1，再往下面的代码我就不需要解释，大家只需要区别需要增加行时，引用行位置的为rt.Rows.Count，不需要增加行的时候为rt.Rows.Count-1，这样您在设计报表的过程中您可以从任意位置插入行，也可以从任意位置嵌套多级分组统计行，您只需要在插入相应代码即可。

rt.rows(rt.Rows.Count-1).Style.Font = New Font("黑体",12) '设置文本对象的字体
rt.Rows(rt.Rows.Count-1).Height = 6 & "mm"
rt.rows(rt.Rows.Count-1).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
rt.Rows(rt.Rows.Count-1).Style.GridLines.left = new Prt.LineDef(0,Color.Black)
rt.Rows(rt.Rows.Count-1).Style.GridLines.Right =new Prt.LineDef(0,Color.Black)
rt.cells(rt.Rows.Count,0).Text = "序号"
rt.cells(rt.Rows.Count-1,1).Text = "凭证号"
rt.cells(rt.Rows.Count-1,2).Text = "附件编号"
rt.cells(rt.Rows.Count-1,3).Text = "摘  要"
rt.cells(rt.Rows.Count-1,4).Text = "金  额"
rt.cells(rt.Rows.Count-1,5).Text = "日  期"
rt.cells(rt.Rows.Count-1,6).Text = "备  注"
rt.Rows(rt.Rows.Count-1).Height = 12 & "mm"
rt.rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12,FontStyle.bold) '设置文本对象的字体
rt.Rows(rt.Rows.Count-1).Style.BackColor = Color.LightGray '第一行背景颜色设为灰色.
rt.rows(rt.Rows.Count-1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.RowGroups(0,3).Header = prt.TableHeaderEnum.All '将前三行作为表头.
rt.Cols(0).Width = 12 & "mm"
rt.Cols(1).Width = 35 & "mm"
rt.Cols(2).Width = 16 & "mm"
rt.Cols(3).Width = 60 & "mm"
rt.Cols(4).Width = 40 & "mm"
rt.Cols(5).Width = 30 & "mm"
rt.Cols(6).Width = 20 & "mm"
rt.cells(rt.Rows.Count,0).text = "一、应付金额大写：" & CUMoney(DataTables("成本明细帐").Compute("Sum(金额)", "科目 = '应付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'")) & "(小写:"  & format(DataTables("成本明细帐").Compute("Sum(金额)", "科目 = '应付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'"),"0.00") & "元)"
rt.rows(rt.Rows.Count-1).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
rt.Cells(rt.Rows.Count-1,0).SpanCols = 7 '第4行第1个单元格向右合并7列
rt.rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12,FontStyle.bold) '设置文本对象的字体
rt.Rows(rt.Rows.Count-1).Height = 12 & "mm"
Dim drs As List(Of DataRow)
drs = DataTables("成本明细帐").Select("科目 = '应付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'")
For i As Integer = 0 To drs.Count-1
    rt.cells(rt.Rows.Count,0).text = Format(i+1,"00")
    rt.cells(rt.Rows.Count-1,1).text = drs(i)("凭证号")
    rt.cells(rt.Rows.Count-1,2).text = drs(i)("单据编号")
    rt.cells(rt.Rows.Count-1,3).text = drs(i)("摘要")
    rt.cells(rt.Rows.Count-1,4).text = format(drs(i)("金额"),"0.00")
    rt.cells(rt.Rows.Count-1,5).text = drs(i)("日期")
    rt.cells(rt.Rows.Count-1,6).text = drs(i)("备注")
    rt.Rows(rt.Rows.Count-1).Height = 8 & "mm"
    rt.cells(rt.Rows.Count-1,3).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
    rt.cells(rt.Rows.Count-1,4).Style.TextAlignHorz = prt.AlignHorzEnum.Right  '水平靠右
Next
rt.cells(rt.Rows.Count,0).text = "二、已付金额大写：" & CUMoney(DataTables("成本明细帐").Compute("Sum(金额)", "科目 = '已付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'")) & "(小写:"  & format(DataTables("成本明细帐").Compute("Sum(金额)", "科目 = '已付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'"),"0.00") & "元)"
rt.Cells(rt.Rows.Count-1,0).SpanCols = 7 '第N行第1个单元格向右合并7列，到这里我也不知道是多少行，代码自动根据前面的筛选结果和添加的行来决定位置，只知道截止当前为最后一行。
rt.rows(rt.Rows.Count-1).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
rt.rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12,FontStyle.bold) '设置文本对象的字体
rt.Rows(rt.Rows.Count-1).Height = 10 & "mm"
drs = DataTables("成本明细帐").Select("科目 = '已付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'")
For i As Integer = 0 To drs.Count-1
    rt.cells(rt.Rows.Count,0).text = Format(i+1,"00")
    rt.cells(rt.Rows.Count-1,1).text = drs(i)("凭证号")
    rt.cells(rt.Rows.Count-1,2).text = drs(i)("单据编号")
    rt.cells(rt.Rows.Count-1,3).text = drs(i)("摘要")
    rt.cells(rt.Rows.Count-1,4).text = format(drs(i)("金额"),"0.00")
    rt.cells(rt.Rows.Count-1,5).text = drs(i)("日期")
    rt.cells(rt.Rows.Count-1,6).text = drs(i)("备注")
    rt.Rows(rt.Rows.Count-1).Height = 8 & "mm"
    rt.cells(rt.Rows.Count-1,3).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
    rt.cells(rt.Rows.Count-1,4).Style.TextAlignHorz = prt.AlignHorzEnum.Right  '水平靠右
Next
Dim y As Integer = DataTables("成本明细帐").Compute("Sum(金额)", "科目 = '应付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'") - DataTables("成本明细帐").Compute("Sum(金额)", "科目 = '已付款' and 部门或单位 = '" & e.Form.Controls("ComboBox1").Value & "'")
If y > 0
    rt.cells(rt.Rows.Count,0).text = "三、应结余额大写：" & CUMoney(y) & "(小写:"  & format(y,"0.00") & "元)"
Else
    rt.cells(rt.Rows.Count,0).text = "三、应结余额大写：负" & CUMoney( Math.Abs(y)) & "(小写:"  & format(y,"0.00") & "元)"
    rt.cells(rt.Rows.Count-1,0).Style.BackColor = Color.red
End If
rt.Cells(rt.Rows.Count-1,0).SpanCols = 7 '第N行第0个单元格向右合并7列，这里同样只知道为最后一行

rt.rows(rt.Rows.Count-1).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
rt.rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12,FontStyle.bold) '设置文本对象的字体
rt.Rows(rt.Rows.Count-1).Height = 10 & "mm"
rt.cells(rt.Rows.Count,0).text =  "备注"
rt.rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12,FontStyle.bold) '设置文本对象的字体
rt.Cells(rt.Rows.Count-1,1).SpanCols = 6 '第2行第2个单元格向右合并3列
rt.Rows(rt.Rows.Count-1).Height = 20 & "mm"
rt.cells(rt.Rows.Count,0).text =  "      审  核：         记  帐：          经手人：            年    月    日"
rt.rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12,FontStyle.bold) '设置文本对象的字体
rt.Cells(rt.Rows.Count-1,0).SpanCols = 7 '第N行第0个单元格向右合并7列，这里同样只知道为最后一行
rt.Rows(rt.Rows.Count-1).Style.GridLines.All = new Prt.LineDef(0,Color.Black)
rt.Rows(rt.Rows.Count-1).Style.GridLines.top = new Prt.LineDef(0.5,Color.Black)
rt.Rows(rt.Rows.Count-1).Height = 15 & "mm"
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.Preview() '预览报表

[此贴子已经被作者于2014-5-15 0:14:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2011/1/3 1:19:00 [只看该作者]

1楼代码生成的结果预览：

 

 


图片点击可在新窗口打开查看此主题相关图片如下：1_page1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2_page1.png
图片点击可在新窗口打开查看

 

 

 

也许大家还有更好的方法，仅供相互借鉴！
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
老有所乐
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		  发帖心情 Post By：2011/1/3 7:56:00 [只看该作者]

谢谢！收藏

 回到顶部
帅哥哟，离线，有人找我吗？
shixia
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：759 积分：7038 威望：0 精华：1 注册：2008/9/2 20:04:00 		  发帖心情 Post By：2011/1/3 9:29:00 [只看该作者]

收藏

 
 回到顶部
帅哥哟，离线，有人找我吗？
migold
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2011/1/3 13:16:00 [只看该作者]

谢谢！

收藏以后再看
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/1/4 7:59:00 [只看该作者]

给精
 回到顶部
帅哥哟，离线，有人找我吗？
狐哥
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：719 积分：5181 威望：0 精华：1 注册：2008/9/24 10:41:00 		  发帖心情 Post By：2011/1/4 15:04:00 [只看该作者]

刚哥要不不出手，出手就是精

受用！收藏。

再感谢！
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2011/1/4 22:48:00 [只看该作者]

惭愧！

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/2/3 0:27:00 [只看该作者]

顶一下，愿对那些喜欢专业报表的朋友有所帮助！
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6848 积分：43334 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2013/2/3 8:23:00 [只看该作者]

最好上传个附件
 回到顶部
总数 34 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询