求解：专业报表设计中表中数据记录有两条结果报表预览只显示一条记录求解！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求解：专业报表设计中表中数据记录有两条结果报表预览只显示一条记录求解！

此主题相关图片如下：212121.jpg

此主题相关图片如下：222222.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:卷宗.zip

报表事件预览代码：

Dim doc As New PrintDoc '定义一个报表

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

Dim rs As New prt.RenderText() '定义一个文本对象

Dim Currow As Row

Dim tbl As Table = Tables("卷宗封面")

For i As Integer = tbl.TopRow To tbl.BottomRow

CurRow = tbl.rows(i)

Doc.PageSetting.LeftMargin = 30 '设置左边距

Doc.PageSetting.RightMargin = 10 '设置右边距

Doc.PageSetting.TopMargin = 25 '设置上边距

Doc.PageSetting.BottomMargin = 20 '设置下边距

doc.PageSetting.Width = 210 '纸张宽度为100毫米

doc.PageSetting.Height = 295 '纸张高度为120毫米

Doc.Style.Padding.right = 1

Doc.Style.Padding.Left = 1

rs.Text = "检察卷移交目录表" '设置文本对象的内容

rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体

rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中

doc.Body.Children.Add(rs) '将文本对象加入到表格中

'doc.Body.Children.Add(rt) '将表格对象加入到报表中

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

rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All

rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型

'rt.Width = "Auto"

rt.Rows.Count = 21 '设置总行数

rt.Cols.Count = 6 '设置总列数

rt.Style.Spacing.Top = 4 '表格和前面对象的垂直间隔为4毫米

rt.Style.Spacing.Bottom = 10 '表和和后续对象的垂直间隔为10毫米

rt.Cols(0).Width = 10 '设置列宽

rt.Cols(1).Width = 20 '设置列宽

rt.Cols(2).Width = 20 '设置列宽

rt.Cols(3).Width = 20 '设置列宽

rt.Cols(4).Width = 60 '设置列宽

rt.Cols(5).Width = 10 '设置列宽

rt.Height = 235 '设置表格的高度为120毫米

rt.Cells(0,3).SpanCols = 1 '第5行第4个单元格向右合并2列

rt.Cells(0,0).SpanRows =1 '第1行第1个单元格向下合并2行

rt.Cells(0,1).SpanRows = 1 '第1行第2个单元格向下合并2行

rt.Cells(0,4).SpanRows = 1 '第1行第5个单元格向下合并2行

rt.Cells(0,5).SpanRows = 1 '第1行第6个单元格向下合并2行

rt.Cells(0,2).SpanRows = 1 '第1行第3个单元格向下合并2行

rt.Cells(0,0).Text= "序号"

rt.Cells(0,1).Text = "案卷编号"

rt.Cells(0,2).Text = "人员名称"

rt.Cells(0,3).Text= "案由"

rt.Cells(0,4).Text = "处理结果"

rt.Cells(0,5).Text = "共卷"

rt.Cells(0,0).Style.Font=New Font("宋体", 16, FontStyle.Bold)

rt.Cells(0,1).Style.Font=New Font("宋体", 16, FontStyle.Bold)

rt.Cells(0,2).Style.Font=New Font("宋体", 16, FontStyle.Bold)

rt.Cells(0,3).Style.Font=New Font("宋体", 16, FontStyle.Bold)

rt.Cells(0,4).Style.Font=New Font("宋体", 16, FontStyle.Bold)

rt.Cells(0,5).Style.Font=New Font("宋体", 16, FontStyle.Bold)

rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All '前两行作为表头

'rt.RowGroups(0,2).Style.BackColor = Color.LightGray '前两行的颜色设为灰色

rt.RowGroups(0,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center '前两行的文本水平居中

rt.RowGroups(0,2).Style.TextAlignVert = prt.AlignVertEnum.Center '前两行的文本垂直居中

' Rows = Tables("卷宗封面").Rows(i).DataRow.GetChildRows("承办人")

'For r As Integer = 0 To Rows.Count - 1

'rt.Cells(i+1,0).Text = CurRow("序号")

rt.Cells(i+1,1).Text = CurRow("案卷编号")

rt.Cells(i+1,2).Text = CurRow("人员名称")

rt.Cells(i+1,3).Text = CurRow("案由")

rt.Cells(i+1,4).Text = CurRow("处理结果")

rt.Cells(i+1,5).Text = CurRow("共卷")

doc.Body.Children.Add(rt)

Dim rx As New prt.RenderTable

'rx.Cells(0,0).Text = Date.Today

'rx.Cells(0,1).Text = "抗震救灾专题"

rx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"

rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right

'rx.Style.Borders.Bottom = New prt.LineDef '设置底边框

rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米

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

Doc.PageFooter=rx '作为页眉使用

Doc.Preview() '预览报表

[此贴子已经被作者于2014-8-2 21:54:42编辑过]

主题：求解：专业报表设计中 表中数据记录有两条 结果报表预览只显示一条记录 求解！

主题：求解：专业报表设计中表中数据记录有两条结果报表预览只显示一条记录求解！