代码如下:
Dim d As Date = new Date(Date.Today.year, 1, 1)
Dim b As New SQLCrossTableBuilder("统计表3","采购明细")
b.C
b.HGroups.AddDef("供应商") '添加客户列用于水平分组
b.VGroups.AddDef("账期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("账期","{0}月") '添加日期列用于垂直分组
b.Totals.AddExp("应付","数量 * 单价")
b.Totals.AddExp("已付","付款")
b.Totals.AddExp("未付","数量 * 单价 - IsNull(付款, 0)")
b.Subtotal = True '生成汇总模式
b.VerticalTotal= True
b.HorizontalTotal = True
b.filter="账期 >= '" & d & "' and 账期 < '" & d.AddYears(1) & "'"
Tables("应付分析_Table1").DataSource = b.BuildDataSource()
With Tables("应付分析_Table1")
.autosizeCols()
End With
CurrentTable.Cols.Frozen = 2
结果如图:
此主题相关图片如下:无标题.png
问题:
1、图中数据如何才能显示为按1‘000’000.00这样的格式。
2、图中合计未付为0的不显示,如何才能做到。