标题：[求助]报表打印代码慰问
Arys = DataTables("退休慰问费").GetUniqueValues("", "慰问单位")
For Each Ary As String In Arys
With Tables("退休慰问费")
.Filter = "[是否停发] = False"
If .Rows.Count = 0 then
Continue for
End If
.Select(0,0,.Rows.Count -1,.Cols.Count -1)
Dim Book As New XLS.Book(ProjectPath & "Attachments\慰问费.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build()
Book.Save(ProjectPath & "Reports\慰问费.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\慰问费.xls"
proc.Verb = "Print"
Proc.Start()
End With
Next
Tables("退休慰问费").Filter = ""
求教以上代码为何不能按各单位+各单位人员打印报表？而是所有报表各单位+全体人员打印出来？
另求更完美的代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打印.rar |
Tables("退休慰问费").Filter = "[是否停发] = False and [单位] = '" & Ary & "'"
谢谢，说明里没有实例，所以没法真正理解For Each ……Next
看EXCEL的分组报表
| 下载信息 [文件大小：5.0 KB 下载次数：2] | |
 点击浏览该文件:慰问费.rar |
杨版，分组报表简单实用，按钮代码也简单，但在有多地方却不适合
比如我们慰问费里的部门多，人数更多（少的几十、多的上百）， 在分组报表里<index> 是整体序号，而非分组序号，这时就不能用<index>（虽然这样的报表本无人数上的错误，可做为财务人员，他们一定会要的，其实对于我们在以后查询也不方便）
Tables("退休慰问费").OpenView("1")
Dim doc As New PrintDoc
Dim rt As Prt.RenderTable
Dim rx,rx1,rx2 As prt.RenderText
Dim Agg As New prt.DataBinding.Aggregate("GroupSum")
Dim tbl As Table = Tables("退休慰问费")
Dim ColNames As New List(Of String)
Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tbl.DataTable.GetUniqueValues("","慰问单位")
For Each cl As Col In tbl.Cols '排除隐藏列
If cl.Visible Then
ColNames.Add(cl.Name)
End If
Next
For Each Region As String In Regions
rx1 = New prt.RenderText
rx1.Style.FontSize = 14
rx1.Style.FontBold = True
rx1.Style.Spacing.Bottom = 2
rx1.Text = "退休慰问费"
rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rx1)
rx = New prt.RenderText
rx.Style.FontSize = 11
rx.Style.FontBold = True
rx.Style.Spacing.Bottom = 2
rx.Text = " 慰问单位: " & Region & " ".PadLeft(90) & " 单位: 元"
doc.Body.Children.Add(rx)
rt = New prt.RenderTable
rt.Style.Font = Tables("退休慰问费").Font
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.LightGray)
rt.Style.Spacing.Bottom = 5
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
Rows = tbl.Datatable.Select("[是否停发] = False and [慰问单位] = '" & Region & "'")
For c As integer = 0 To ColNames.Count - 1 '逐列设置和填入内容
rt.Cells(0,c).Text = ColNames(c) '列名作为标题
rt.Cols(c).Width = tbl.Cols(ColNames(c)).PrintWidth
For r As integer = 0 To Rows.Count -1
rt.Cells(r + 1, c).Text = Rows(r)(ColNames(c))
Next
Next
rt.Rows.Count = rt.Rows.Count + 1
Dim cnt As integer = rt.Rows.Count - 1
rt.Cells(cnt,0).Text = "总计"
For c As Integer = 0 To ColNames.Count - 1 '逐列设置和填入内容
If tbl.Cols(ColNames(c)).IsNumeric then
rt.Cells(cnt,c).Text = tbl.Compute("Sum("& ColNames(c) & ")","[是否停发] = False and [慰问单位] = '" & Region & "'")
End If
Next
rt.Cells(cnt+1,0).SpanCols = ColNames.Count
rt.Cells(cnt+1,0).Text = "单位负责人:" & " ".PadLeft(16) & "人事负责人:"& " ".PadLeft(16) & "制表人:"
rt.Cells(cnt+1,0).Style.GridLines.Bottom = New prt.LineDef(Color.White)
rt.Cells(cnt+1,0).Style.GridLines.Left = New prt.LineDef(Color.White)
rt.Cells(cnt+1,0).Style.GridLines.Right = New prt.LineDef(Color.White)
rt.Rows(cnt+1).Style.Font = New Font("宋体",11, FontStyle.Bold)
doc.Body.Children.Add(rt)
Next
doc.preview()
Tables("退休慰问费").OpenView("2")