主题：求关联统计？

..........

Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"))

g.HGroups.AddDef("客户名称","所属区域")

g.VGroups.AddDef("产品名称")

g.VGroups.AddDef("产品简称", "{0}_重量")

g.Totals.AddDef("重量")

g.VerticalTotal = True

g.HorizontalTotal = True

g.VerticalProportion = True

g.HorizontalProportion = True

If Filter>"" Then

    g.filter=Filter '进行数据过滤

End If

g.Build()

Tables("统计表1").AutoSizeCols(5)

For Each r As Row In Tables("统计表1").Rows

    Dim dr As DataRow = DataTables("客户资料").Find("客户名称 = '" & r("所属区域") & "'")

    If dr IsNot Nothing Then

        r("所属区域") =dr("所属区域")

    End If

Next

MainTable = Tables("统计表1")

............

..............

Dim jb As new SQLJoinTableBuilder("查询表1","销售明细")

jb.AddTable("销售明细","客户名称","客户资料","客户名称")

jb.AddTable("销售明细","产品简称","产品资料","产品简称")

jb.AddCols("日期","所属区域","{产品资料}.产品名称","{销售明细}.产品简称")

jb.AddExp("重量","箱数*{产品资料}.重量 + 销售条数*每条重量")

Dim g As New CrossTableBuilder("统计表1", jb.BuildSQL)

g.HGroups.AddDef("所属区域")

g.VGroups.AddDef("产品名称")

g.VGroups.AddDef("产品简称", "{0}_重量")

g.Totals.AddDef("重量")

g.VerticalTotal = True

g.HorizontalTotal = True

g.VerticalProportion = True

g.HorizontalProportion = True

g.Filter =Filter

g.Build()

Tables("统计表1").AutoSizeCols(5)

MainTable = Tables("统计表1")

...........

如是Access数据源,日期用"#"号引起来.