以下是引用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
[此贴子已经被作者于2011-11-10 13:18:05编辑过]