Dim bd4 As New SQLGroupTableBuilder("统计表4","分摊")
Dim dt4 As fxDataSource
bd4.Filter=Filter0
bd4.Groups.AddDef("日期",DateGroupEnum.none)
bd4.Totals.AddDef("人工成本") '需要保留一位小数
bd4.Totals.AddDef("费用")'需要保留一位小数
dt4 = bd4.BuildDataSource()
Dim nms As String() = {"日期"}
dt1.Combine(nms,dt2,nms)
dt1.Combine(nms,dt3,nms)
dt1.Combine(nms,dt4,nms)
Tables("YX公司_YX公司0").DataSource = dt1
With DataTables("YX公司_YX公司0").DataCols '用表达式列计算库存数据
.Add("X加V成本",Gettype(Single), "IIF([V量]=0,0,[现金]/ [V量])")'需要保留一位小数
.Add("X订单成本",Gettype(Single), "IIF([单数]=0,0,[现金]/[单数])")'需要保留一位小数
.Add("Y客单价",Gettype(Single), "IIF([单数]=0,0,[预算利润]/[单数])")'需要保留一位小数
.Add("成交率",Gettype(Single), "IIF([单数]=0,0,[单数]/[V量])")'需要保留一位小数的百分数
.Add("Y投资回报",Gettype(Single), "IIF([费用]=0,0,[预算利润]/[费用])")需要保留一位小数的百分数
.Add("出团率",Gettype(Single), "IIF([待出团]+[出团]=0,0,[出团]/([待出团]+[出团]))")需要保留一位小数的百分数
.Add("Y纯利",Gettype(Single), "IsNull([预算利润],0) - ISNULL([现金],0) - IsNull([预算利润],0)*0.2 - ISNULL([人工成本],0)")需要保留一位小数
End With
加好友 
发短信
Post By：2020/2/9 23:35:00 [显示全部帖子]
