主题：[求助]这样的综合汇总怎样做呢？

如题，三个表格的数据，欲通过共同的“生产单号”进行综合汇总，汇总后表格的样式及数据见附表，谢谢！

按照表B的日期段进行生成。

Dim dt As DataTable
Dim cmd As new SQLCommand

cmd.CommandText = "Select Distinct {表A}.领料日期, {表A}.基材型号, {表A}.基材规格, {表A}.厂商代号, {表A}.投料件数, {表A}.投料重量, {表B}.客户, {表c}.生产类型, {表B}.产品型号, {表B}.产品规格 "
cmd.CommandText &= " From ({表A} Inner JOIN {表B} ON {表B}.[生产单号] = {表A}.[生产单号]) Inner JOIN {表C} ON {表C}.[生产单号] = {表A}.[生产单号] where 1=1"

dt = cmd.ExecuteReader

dt.DataCols.Add("一等品出货重量", Gettype(Integer))
dt.DataCols.Add("二等品出货重量", Gettype(Integer))
dt.DataCols.Add("一等品库存", Gettype(Integer))
dt.DataCols.Add("二等品库存", Gettype(Integer))
dt.DataCols.Add("单边库存", Gettype(Integer))

Dim filter As String = ""
Dim ed As Date = e.Form.Controls("结束日期").Value
Dim sd As Date = e.Form.Controls("开始日期").value
If sd <> Nothing Then
    filter &= " and 日期 >= #" & sd & "#"
End If
If ed <> Nothing Then
    filter &= " and 日期 <= #" & ed & "# "
End If
For Each dr As DataRow In dt.DataRows
    dr("一等品出货重量") = DataTables("表B").Compute("sum(每箱净重)", "产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = true and 等级 = '一等品' " & filter)
    dr("二等品出货重量") = DataTables("表B").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = true and 等级 = '二等品' " & filter)
    dr("一等品库存") = DataTables("表B").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = false and 等级 = '一等品' " & filter)
    dr("二等品库存") = DataTables("表B").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = false and 等级 = '二等品' " & filter)
    dr("单边库存") = DataTables("表B").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = false and 等级 = '单边' " & filter)
Next

e.Form.Controls("Table1").Table.Datasource = dt

有点甜真棒！那么晚了还在回复真是太感谢了！我按照您对例子的回复用在例子上可以生成我想要的表格，但我按照思路往我的系统导的时候，提示错误，说找不到“***表”！我再仔细查是一下原因，如果实在找不出来的话，再上来向您请教！

 如果是外部数据源，就要加入代码

 

Dim dt As DataTable
Dim cmd As new SQLCommand

cmd.ConnectionName = "数据源名"

终于按照有点甜的代码，将自己的实际表格生成出来了。但是我这边又遇到一下问题，就是表C中有两列逻辑列。在生成表格时，想多一项判断，就是表C中"已完成"列为TURE的行.然后生成表格的同时，表C中的"已记账"列为TURE.请问如何实现 ？如附表：

    dr("单边库存") = DataTables("生产入库明细表").Compute("sum(每箱净重)","产品型号 = '" & dr("型号") & "' and 产品规格 = '" & dr("规格") & "' and 已出货 = false and 等级 = '单边' and 已记账 = true " & filter)

现在我遇到的问题是，表C中有两列逻辑列。在生成表格时，想多一项判断，就是表C中"已完成"列为TURE的行.然后生成表格的同时，表C中的"已记账"列为TURE.而现在所有的统计都按照表B去统计，请问如何把表C的条件进行筛选及变更表C逻辑列 ？

 参考

 

cmd.CommandText = "Select Distinct {表A}.领料日期, {表A}.基材型号, {表A}.基材规格, {表A}.厂商代号, {表A}.投料件数, {表A}.投料重量, {表B}.客户, {表c}.生产类型, {表B}.产品型号, {表B}.产品规格 "
cmd.CommandText &= " From ({表A} Inner JOIN {表B} ON {表B}.[生产单号] = {表A}.[生产单号]) Inner JOIN {表C} ON {表C}.[生产单号] = {表A}.[生产单号] where {表C}.已记账 = true"

cmd.CommandText &= " From ({表A} Inner JOIN {表B} ON {表B}.[生产单号] = {表A}.[生产单号]) Inner JOIN {表C} ON {表C}.[生产单号] = {表A}.[生产单号] where {表C}.已完成 = true"