Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求解：专业报表设计中 表中数据记录有两条 结果报表预览只显示一条记录 求解！


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

主题：求解：专业报表设计中 表中数据记录有两条 结果报表预览只显示一条记录 求解！
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		求解：专业报表设计中 表中数据记录有两条 结果报表预览只显示一条记录 求解！  发帖心情 Post By：2014/8/2 21:52:00 [只看该作者]

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

图片点击可在新窗口打开查看此主题相关图片如下：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 '作为页眉使用
Next

Doc.Preview() '预览报表
[此贴子已经被作者于2014-8-2 21:54:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/3 10:13:00 [只看该作者]

 你写了这句代码 For i As Integer = tbl.TopRow To tbl.BottomRow

 

 那么，你就要选中要打印的行。不然你就换成 For i As Integer = 0 To tbl.Rows.Count - 1
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 你写了这句代码 For i As Inte...  发帖心情 Post By：2014/8/3 14:28:00 [只看该作者]

选中得两行 结果第一行数据为空   继续求解！

期待有点甜老师多多指导

图解：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140803142614.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/3 14:37:00 [只看该作者]

 测试没有问题。请写上完整代码。

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


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 你写了这句代码 For i As Inte...  发帖心情 Post By：2014/8/3 16:19:00 [只看该作者]

错误
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:卷宗.zip


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140803161658.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140803161715.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/3 16:48:00 [只看该作者]

 

[此贴子已经被作者于2014-8-3 16:47:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/3 16:49:00 [只看该作者]

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("卷宗封面")

doc.Body.Children.Add(rs) '将文本对象加入到表格中
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(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("共卷")
Next

 

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() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/3 17:18:00 [只看该作者]

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("卷宗封面")

doc.Body.Children.Add(rs) '将文本对象加入到表格中
Dim i As Integer = 0
For Each r As Row In tbl.GetCheckedRows
    CurRow = r
   
    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(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("共卷")
    i += 1
Next

 

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() '预览报表
 

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


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）Dim doc As New PrintDoc '定义一个报...  发帖心情 Post By：2014/8/3 20:56:00 [只看该作者]

谢谢有点甜老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询