以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求解：专业报表设计中 表中数据记录有两条 结果报表预览只显示一条记录 求解！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54710)
--  作者：李孝春
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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
--  作者：李孝春
--  发布时间：2014/8/3 14:28:00
--  回复：（有点甜） 你写了这句代码 For i As Inte...
选中得两行 结果第一行数据为空   继续求解！

期待有点甜老师多多指导

图解：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140803142614.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/8/3 14:37:00
--  
 测试没有问题。请写上完整代码。
--  作者：李孝春
--  发布时间：2014/8/3 16:19:00
--  回复：（有点甜） 你写了这句代码 For i As Inte...
错误
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:卷宗.zip


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

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140803161715.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/8/3 16:48:00
--  

 

[此贴子已经被作者于2014-8-3 16:47:56编辑过]
--  作者：有点甜
--  发布时间：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() \'预览报表
--  作者：有点甜
--  发布时间：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() \'预览报表
 

 
--  作者：李孝春
--  发布时间：2014/8/3 20:56:00
--  回复：（有点甜）Dim doc As New PrintDoc '定义一个报...
谢谢有点甜老师