Dim bm As String = "统计" Dim b As New SQLCrossTableBuilder(bm,"物料计算") b.HGroups.AddExp("分类", "Right(产品名称,1)") b.VGroups.AddExp("项目", "left(产品名称,len(产品名称) - 1)") b.Totals.AddDef("需求数量") b.filter = "产品名称 is not null" b.VerticalTotal = True b.Build MainTable = Tables(bm)