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

如果只是 where {表C}.已完成 = true 不加 &{表C}.已记账 = false的话，就没有错误提示！

看20楼

可以了，谢谢有点甜！我之前没有接触过编程，所以让你费心了，不早了，早点休息吧！

我现在又遇到一个问题，就是在以生产单号为标准去统计的时候，该批货有可能出给两个或三个客户，这样一来，如果按照现在的代码运行后，客户一栏的值就为空，有什么办法可以将该批货所出的客户一起列出来呢？比如：DT、WT或者DT/WT，谢谢指教！

 回复24楼，你最新的例子上传上来。输入对应数据。

上例子：

Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.CommandText = "Select Distinct {生产主表}.生产单号, {原材料出仓主表}.出仓日期, {原材料出仓主表}.基材型号, {原材料出仓主表}.基材规格, {原材料出仓主表}.厂商代号, {原材料出仓主表}.总件数, {原材料出仓主表}.总重量, {原材料出仓主表}.总金额, {生产主表}.生产类型, {生产入库明细表}.产品型号, {生产入库明细表}.产品规格"
cmd.CommandText &= " From ({原材料出仓主表} Inner JOIN {生产入库明细表} ON {生产入库明细表}.[生产单号] = {原材料出仓主表}.[生产单号]) Inner JOIN {生产主表} ON {生产主表}.[生产单号] = {原材料出仓主表}.[生产单号] where {生产主表}.已完成 = true and {生产主表}.已记账 = false"
dt = cmd.ExecuteReader
dt.DataCols.Add("客户代号", Gettype(String),255)
dt.DataCols.Add("产品金额", Gettype(Double))
dt.DataCols.Add("一等品出货重量", Gettype(Double))
dt.DataCols.Add("二等品出货重量", Gettype(Double))
dt.DataCols.Add("一等品库存", Gettype(Double))
dt.DataCols.Add("二等品库存", Gettype(Double))
dt.DataCols.Add("单边库存", Gettype(Double))
dt.DataCols.Add("成品率", Gettype(Double))
dt.DataCols.Add("一等品率", Gettype(Double))
dt.DataCols.Add("出货率", Gettype(Double))
Dim filter As String = ""
Dim ed As Date = e.Form.Controls("截止日期").Value
If ed <> Nothing Then
    filter &= " and 入库时间 <= #" & ed & "# "
End If
For Each dr As DataRow In dt.DataRows
    dr("客户代号") = DataTables("生产入库明细表").GetComboListString("客户代号", "生产单号 = '" & dr("生产单号") & "'").Replace("|", "/")
    dr("产品金额") = DataTables("生产入库明细表").Compute("sum(产品金额)", "产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = true " & filter)
    dr("一等品出货重量") = DataTables("生产入库明细表").Compute("sum(每箱净重)", "产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = true and 等级 = '一等品' " & filter)
    dr("二等品出货重量") = DataTables("生产入库明细表").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = true and 等级 = '二等品' " & filter)
    dr("一等品库存") = DataTables("生产入库明细表").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = false and 等级 = '一等品' " & filter)
    dr("二等品库存") = DataTables("生产入库明细表").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = false and 等级 = '二等品' " & filter)
    dr("单边库存") = DataTables("生产入库明细表").Compute("sum(每箱净重)","产品型号 = '" & dr("产品型号") & "' and 产品规格 = '" & dr("产品规格") & "' and 已出货 = false and 等级 = '单边' " & filter)
    dr("成品率") = (dr("一等品出货重量")+dr("二等品出货重量")+dr("一等品库存")+dr("二等品库存")+dr("单边库存"))/dr("总重量")
    dr("一等品率") = (dr("一等品出货重量")+dr("一等品库存"))/dr("总重量")
    dr("出货率") = (dr("一等品出货重量")+dr("二等品出货重量"))/dr("总重量")
    DataTables("生产主表").ReplaceFor("已记账", True, "生产单号 = '" & dr("生产单号") & "' and 已完成 = true")
    DataTables("生产主表").save
Next
e.Form.Controls("Table1").Table.Datasource = dt