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 ") Dim ls As new List(Of String) For Each dc As DataCol In DataTables("全年销售").DataCols If dc.IsNumeric Then If DataTables("全年销售").Compute("sum(" & dc.name & ")") = 0 Then ls.add(dc.name) End If End If Next For Each s As String In ls DataTables("全年销售").DataCols.Delete(s) Next
|