Dim b As New CrossTableBuilder("统计表",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品") '添加产品列用于垂直分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Build '生成统计表
Dim fx As String
For Each c As Col In Tables("统计表").Cols
If c.name.Contains("数量_") Then
fx+="+[" & c.name & "] * " & C.Index
End If
Next
If fx IsNot Nothing Then
DataTables("统计表").DataCols.Add("ABC", Gettype(Double),fx.trim("+"))
MainTable = Tables("统计表") '打开生成的统计表
End If
加好友 
发短信
Post By：2013/3/26 17:25:00 [显示全部帖子]
