| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 专业报表的几个问题请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73168) |
| -- 作者：douglas738888 -- 发布时间：2015/8/13 16:05:00 -- 专业报表的几个问题请教 老师，你们好！以下代码是生成专业报表的 第一个问题：想把窗口中的标签（未绑定）设计到报表标题下左侧的代码怎样写 第二个问题：在窗口中的临时统计表的有的列是百分比（%）数据，但以下代码生成后，全部变为例如0.66666666666，而不是66.67% Dim doc As New PrintDoc \'定义一个新报表 Dim rt As New prt.RenderTable() \'定义一个新表格 Dim n As New prt.RenderText \'定义一个文本对象 Dim tb As Table = Tables("主窗口_Table5") n.Text = "客户统计报表" \'设置文本对象的内容 n.Style.Font = New Font("黑体", 20 , FontStyle.Bold) \'设置文本对象的字体 n.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中 doc.PageSetting.Landscape = True \'横向打印 doc.Body.Children.Add(n) \'将文本对象加入到报表 rt.Width = "Auto" \'表格宽度为自动,也就是等于各列设置宽度之和 rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded \'表格宽度超出页宽时,可以水平换页 rt.Style.Font = tb.Font For c As Integer = 0 To tb.Cols.Count -1 \'逐列设置和填入内容 rt.Cells(0,c).Text = tb.Cols(c).Name \'列名作为标题 rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'标题内容水平居中 rt.Cols(c).Width = tb.Cols(c).PrintWidth \'列宽等于实际列宽 rt.Style.Spacing.Top = 10 \'表格和前面对象的垂直间隔为4毫米 rt.Style.Spacing.Bottom = 10 \'表和和前对象的垂直间隔为10毫米 If tb.Cols(c).IsNumeric OrElse tb.Cols(c).IsDate Then \'如果是数值或日期列 rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'数据水平靠右 End If For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 rt.Cells(r + 1, c).Text = tb(r,c) rt.Rows(0).Height = 7 \'设置行高 Next Next rt.Style.Gridlines.All = New prt.Linedef(Color.Black) \'灰色网格线 rt.CellStyle.Spacing.All = 0.5 \'单元格内距设为0.5毫米 rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第一行内容水平居中 rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All \'利用行组,将第一行设为表头 doc.Body.Children.Add(rt) \'将表格加入到报表 doc.Preview()
|
| -- 作者：大红袍 -- 发布时间：2015/8/13 16:18:00 -- Dim doc As New PrintDoc \'定义一个新报表 doc.PageSetting.Landscape = True \'横向打印 rt.Width = "Auto" \'表格宽度为自动,也就是等于各列设置宽度之和 |
| -- 作者：douglas738888 -- 发布时间：2015/8/13 16:43:00 -- 谢谢老师，您写的代码全部列数据都变成了百分比，但是表格中有的列是数字不是百分比，有的列是百分比，再次请教！！ |
| -- 作者：大红袍 -- 发布时间：2015/8/13 16:46:00 -- If tb.Cols(c).IsNumeric Then Select tb.Cols(c).Name Case "金额","百分比列" For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 rt.Cells(r + 1, c).Text = Format(tb(r,c), "0.00%") rt.Rows(0).Height = 7 \'设置行高 Next Case Else For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 rt.Cells(r + 1, c).Text = Format(tb(r,c), "0.00") rt.Rows(0).Height = 7 \'设置行高 Next End Select Else For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 rt.Cells(r + 1, c).Text = tb(r,c) rt.Rows(0).Height = 7 \'设置行高 Next End If [此贴子已经被作者于2015/8/13 16:45:44编辑过]
|
| -- 作者：douglas738888 -- 发布时间：2015/8/13 17:06:00 -- 非常感谢老师的指导！！！！！ |
| -- 作者：douglas738888 -- 发布时间：2015/8/13 17:15:00 -- 老师再帮我看看，这组代码，Label16的内容是来自开始日期和结束日期的，我放进上述代码中报错。真的很麻烦老师了！！ Dim n2 As WinForm.Label = e.Form.Controls("Label16")
n2 = new prt.RenderText n2.Text = b.Text doc.Body.Children.Add(n2) \'将文本对象加入到报表 |
| -- 作者：大红袍 -- 发布时间：2015/8/13 17:25:00 -- Dim n2 As new prt.RenderText
n2.Text = e.Form.Controls("Label16").Text
doc.Body.Children.Add(n2) \'将文本对象加入到报表 |