- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]这样的综合汇总怎样做呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56956)
-- 发布时间：2014/9/15 22:45:00
-- [求助]这样的综合汇总怎样做呢？
如题，三个表格的数据，欲通过共同的“生产单号”进行综合汇总，汇总后表格的样式及数据见附表，谢谢！
-- 发布时间：2014/9/15 22:45:00
--
按照表B的日期段进行生成。
-- 发布时间：2014/9/15 23:42:00
--
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
-- 发布时间：2014/9/16 9:41:00
--
有点甜真棒！那么晚了还在回复真是太感谢了！我按照您对例子的回复用在例子上可以生成我想要的表格，但我按照思路往我的系统导的时候，提示错误，说找不到“***表”！我再仔细查是一下原因，如果实在找不出来的话，再上来向您请教！
-- 发布时间：2014/9/16 10:17:00
--
如果是外部数据源，就要加入代码
Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名"
-- 发布时间：2014/9/20 17:33:00
--
终于按照有点甜的代码，将自己的实际表格生成出来了。但是我这边又遇到一下问题，就是表C中有两列逻辑列。在生成表格时，想多一项判断，就是表C中"已完成"列为TURE的行.然后生成表格的同时，表C中的"已记账"列为TURE.请问如何实现 ？如附表：
-- 发布时间：2014/9/21 9:30:00
--
dr("单边库存") = DataTables("生产入库明细表").Compute("sum(每箱净重)","产品型号 = \'" & dr("型号") & "\' and 产品规格 = \'" & dr("规格") & "\' and 已出货 = false and 等级 = \'单边\' and 已记账 = true " & filter)
-- 发布时间：2014/9/21 21:09:00
--
现在我遇到的问题是，表C中有两列逻辑列。在生成表格时，想多一项判断，就是表C中"已完成"列为TURE的行.然后生成表格的同时，表C中的"已记账"列为TURE.而现在所有的统计都按照表B去统计，请问如何把表C的条件进行筛选及变更表C逻辑列 ？
-- 发布时间：2014/9/21 21:12:00
--
参考
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"
-- 发布时间：2014/9/21 21:18:00
--
cmd.CommandText &= " From ({表A} Inner JOIN {表B} ON {表B}.[生产单号] = {表A}.[生产单号]) Inner JOIN {表C} ON {表C}.[生产单号] = {表A}.[生产单号] where {表C}.已完成 = true"