主题：报表问题,请老师指导...(已经自行解决,另多谢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()