原始数据:
此主题相关图片如下:2.png

Dim b As new SQLCrossTableBuilder("tjb1","FinanceInfo")
b.C
b.HGroups.AddDef("FinanceTime", DateGroupEnum.Year, "支付日期_年")
b.HGroups.AddDef("FinanceTime", DateGroupEnum.Month, "支付日期_月")
b.HGroups.AddDef("FinanceTime", DateGroupEnum.Day, "支付日期_日")
b.VGroups.AddDef("FinancePayWay","{0}")
'b.Totals.AddExp("收入", "Case When FinanceMoney > 0 then FinanceMoney else 0 End")
'b.Totals.AddExp("支出", "Case When FinanceMoney < 0 then FinanceMoney else 0 End")
b.Totals.AddExp("总计", "FinanceMoney")
b.HorizontalTotal =True
b.VerticalTotal =True
b.Subtotal =True
Dim t As Table = Tables("FinanceCrossReport_Table1")
t.DataSource = b.BuildDataSource
t.AutoSizeCols
此主题相关图片如下:1.png

[此贴子已经被作者于2018/11/8 20:43:54编辑过]