专家坐堂-如何格式化临时表列数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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