这个交叉统计的代码要怎么改啊

Dim g As New CrossTableBuilder("坯料统计", DataTables("物料总表"))
g.HGroups.AddDef("客户名称")
g.HGroups.AddDef("合金")
g.HGroups.AddDef("熔铸规格")
g.VGroups.AddDef("状态")
g.Totals.AddDef("状态", Aggregate)         ‘Aggregate’我要把‘统计类型’设置为  “Count记录数”
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter."客户名称" = \'箔坯\'                       我要挑选【客户名称】为‘箔坯’的记录
g.Build
MainTable = Tables("坯料统计")

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

啊，不好意思，我找到代码 了

Dim g As New CrossTableBuilder("统计表2", DataTables("物料总表"), "[客户名称] = \'箔坯\' or [客户名称] = \'ALMI印尼\'")
g.HGroups.AddDef("客户名称")
g.HGroups.AddDef("合金")
g.HGroups.AddDef("熔铸规格")
g.HGroups.AddDef("熔铸日期", "月")
g.VGroups.AddDef("状态")
g.Totals.AddDef("状态", AggregateEnum.Count, "状态")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "[客户名称] = \'箔坯\' or [客户名称] = \'ALMI印尼\'"
g.Build()
MainTable = Tables("统计表2")