主题：关于交叉统计

 拷贝代码贴到afteropenproject事件，生成时候的表名，改一下

Dim g As New CrossTableBuilder("统计表", DataTables("费用明细"))
g.HGroups.AddDef("Dep")
g.HGroups.AddDef("AN")
g.VGroups.AddDef("Date", "{0}月")
g.Totals.AddDef("Expence", "Expence")
g.Build()
MainTable = Tables("统计表")

g = New CrossTableBuilder("统计表1", DataTables("PA"))
g.HGroups.AddDef("SN")
g.VGroups.AddDef("Date", "{0}月")
g.Totals.AddDef("P800", "P800")
g.Totals.AddDef("P100", "P100")
g.Totals.AddDef("P700", "P700")
g.Totals.AddDef("P900", "P900")
g.Totals.AddDef("P200", "P200")
g.Totals.AddDef("P300", "P300")
g.Totals.AddDef("P3002", "P3002")
g.Totals.AddDef("P600", "P600")
g.Totals.AddDef("P6002", "P6002")
g.Totals.AddDef("P1100", "P1100")
g.Totals.AddDef("P500", "P500")
g.Totals.AddDef("PO", "PO")
g.Build()
MainTable = Tables("统计表1")