|
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
|
加好友 
发短信
Post By：2019/4/10 15:37:00 [显示全部帖子]
