多大点事啊，很容易的。Dim dt1 As DataTable
Dim cmd As New SQLCommand
cmd.CommandText = "Select 主材类别,主材名称,主材规格,单位,单价,sum(数量) As [数量] From {表四甲主材} Group By 主材类别,主材名称,主材规格,单位,单价"
dt1 = cmd.ExecuteReader()
sql语句是这样使用的，那个sum就是统计数据（其实这是常规select语句，如果不会，那你太菜鸟了）。
dt1是DataTable，就当正常的DataTable来使用。下面继续，把这个统计结果填写到一个数据表里面：
Dim f As New Filler
f.DataTable = DataTables("表四甲主材汇总") '指定数据接收表
'f.DataCols = "产品,客户" '指定数据接收列 这句我没用到，也就是默然填写名字相同的字段。
DataTables("表四甲主材汇总").Datarows.Clear() '我这是把这个表清0了，你不清0就不要用。
f.Fill() '填充数据
DataTables("表四甲主材汇总").Save() ’保存一下，如果你后面要使用，没这句，你找不到数据。
[此贴子已经被作者于2013-12-14 22:18:31编辑过]
加好友 
发短信
Post By：2013/12/14 22:18:00 [显示全部帖子]
