主题：报表问题,请老师指导...(已经自行解决,另多谢don大哥提供另一思路)

俺只会一点SQLCommand：

Dim cmd,cmd1 As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select 项目,规格,类别,单价,数量,Round(单价*数量,2) As 金额 From {清单} where 类别 <>'a'"
dt = cmd.ExecuteReader()
cmd1.CommandText = "select sum(round(单价*数量,2)) AS 金额 from {清单} where 类别 = 'a'"

Dim dr As DataRow
dr =dt.addnew
dr("项目") = "@"
dr("类别") = "a"
dr("金额") = cmd1.ExecuteScalar

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.sort = "数量"
dst.Build()

既然是专业报表，可以一行一行生成，你想怎么折腾都行，只是别用专业报表的数据绑定，数据绑定是自动的，当然就不能对个别记录作特殊处理了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报表问题.table

Dim doc As New PrintDoc

Dim rt As Prt.RenderTable
Dim tbl As Table = Tables("清单")
Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tbl.DataTable.GetUniqueValues("类别 <> '其他'","类别")
doc.Pagesetting.LandScape = false
For Each Region As String In Regions
    Dim rs As New prt.RenderText
    rs.Text = "费用类别:   " & Region
    rs.Style.FontSize = 10
    rs.Style.FontBold = True
    doc.Body.Children.Add(rs)
    rt = New prt.RenderTable
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center
    rt.Style.GridLines.Top = New prt.LineDef(0.4,Color.Black)
    rt.Style.Spacing.Bottom = 5
    rt.CellStyle.Spacing.All = 1
    rt.Style.Font = tbl.Font
    rt.Cols(0).Width = 40
    rt.Cols(1).Width = 30
    rt.Cols(2).Width = 0
    Rows = tbl.Datatable.Select("[类别] = '" & Region & "'")
    For c As integer = 0 To tbl.Cols.Count - 1
        rt.Cells(0,c).Text = tbl.Cols(c).Name
        For r As integer = 0 To Rows.Count -1
            rt.Cells(r + 1, c).Text = rows(r)(tbl.Cols(c).Name)
        Next
    Next
   
    rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All
    rt.Style.Gridlines.Horz = New prt.Linedef(0.3,Color.LightGray)
    doc.Body.Children.Add(rt)
Next

Dim Total As Double
Total = tbl.Datatable.Compute("Sum(金额)", "类别 = '其他'")
Dim rts As New prt.RenderText
rts.Text = "费用类别:    其他"
rts.Style.FontSize = 10
rts.Style.FontBold = True
doc.Body.Children.Add(rts)

rt = New prt.RenderTable
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Style.GridLines.Top = New prt.LineDef(0.4,Color.Black)
rt.Style.Spacing.Bottom = 5
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
rt.Cells(0,0).Text = "项目"
rt.Cells(0,6).Text = "金额"
rt.Cells(1,0).Text = "一次性医用消耗材料"
rt.Cells(1,6).Text = Total
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All
rt.Style.Gridlines.Horz = New prt.Linedef(0.3,Color.LightGray)
doc.Body.Children.Add(rt)

doc.preview()