主题：关于组合多个交叉统计结果

以下是引用lujing72在2011-11-10 12:23:00的发言：
顶上！！！！等待解决！！！！！！！！

不要心急!老大会解决的,给个应急的方法给你:

Dim g1 As New CrossTableBuilder("统计表1", DataTables("入库明细"))

g1.HGroups.AddDef("材料名称")

g1.HGroups.AddDef("型号规格")

g1.VGroups.AddDef("入库方式","入库_{0}")

g1.Totals.AddDef("数量", "入库_数量")

Dim t As Table = Tables("窗口1_Table1")

Dim s,s1 As String

t.DataSource = g1.BuildDataSource

For Each s  In DataTables("出库明细").GetUniqueValues("","出库方式")

    t.DataTable.DataCols.Add("出库_" & s, Gettype(Double))

    For Each r As Row In t.Rows

        s1="材料名称 = '" & r("材料名称") & "' and 型号规格 = '"

        s1+= r("型号规格") & "'and 出库方式 ='" & s & "'"

        r("出库_" & s) =DataTables("出库明细").Compute("sum(数量)",s1)

    Next

Next