主题：删除列的值为O的列

删除列总和值为O的列

Dim g As New CrossTableBuilder("全年销售", DataTables("销售"))
g.HGroups.AddDef("客户全称")
g.VGroups.AddDef("会计年度")
g.Totals.AddDef("结算金额", "结算金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("全年销售")
DataTables("全年销售").DeleteFor( " 合计 = 0 ")
DataTables("全年销售").DataCols.Delete( " 合计 = 0 ")